From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:38:01 +0530 Subject: updated the code --- 1379/CH1/EX1.1.6/example1_6.sci | 81 ++++++++++++++++++++--------------------- 1 file changed, 40 insertions(+), 41 deletions(-) (limited to '1379/CH1/EX1.1.6/example1_6.sci') diff --git a/1379/CH1/EX1.1.6/example1_6.sci b/1379/CH1/EX1.1.6/example1_6.sci index 56b81cade..a5fc95dd2 100755 --- a/1379/CH1/EX1.1.6/example1_6.sci +++ b/1379/CH1/EX1.1.6/example1_6.sci @@ -1,41 +1,40 @@ - - -//exapple 1.6 -clc; funcprot(0); -// Initialization of Variable -rhon=1068;//density of nitric acid -mun=1.06/1000//viscosity of nitric acid -g=9.81; -l=278; -d=0.032; -alpha=1; -h2=57.4;//height to be raised -h1=5;//height from which to be raised -e=.0035/1000;//roughness -G=2.35//mass flow rate -//calculations -//part 1 -u=4*G/rhon/pi/d^2; -Re=rhon*d*u/mun; -rr=e/d;//relative roughness -//Reading's from Moody's Chart -phi=.00225;//friction coeff. -W=u^2/2+g*(h2-h1)+4*phi*l*u^2/d;//The work done/kg of fluid flow in J/kg -V=abs(W)*G; -disp(abs(V)/1000, "The Power required to pump acid in kW :"); -//part 2 -P2=-u^2*rhon/2+g*(h1)*rhon+abs(W+2)*rhon;; -disp(P2/1000,"The gauge pressure at pump outlet when piping is new in (kPa)" ); -//part 3 -e=.05/1000; -Re=rhon*d*u/mun; -rr=e/d; -//Reading's from Moody's Chart -phi=0.0029; -W=u^2/2+g*(h2-h1)+4*phi*l*u^2/d; -Vnew=abs(W)*G; -Pi=(Vnew-V)/V*100; -disp(Pi , "The increase in power required to transfer in old pipe in (%):"); -//part 4 -P2=-u^2*rhon/2+g*(h1)*rhon+abs(W+2)*rhon; -disp(P2/1000,"The gauge pressure at pump outlet when piping is old in (kPa)" ); +//exapple 1.6 +clc; funcprot(0); +// Initialization of Variable +rhon=1068;//density of nitric acid +mun=1.06/1000//viscosity of nitric acid +g=9.81; +l=278; +pi = %pi; +d=0.032; +alpha=1; +h2=57.4;//height to be raised +h1=5;//height from which to be raised +e=.0035/1000;//roughness +G=2.35//mass flow rate +//calculations +//part 1 +u=4*G/rhon/pi/d^2; +Re=rhon*d*u/mun; +rr=e/d;//relative roughness +//Reading's from Moody's Chart +phi=.00225;//friction coeff. +W=u^2/2+g*(h2-h1)+4*phi*l*u^2/d;//The work done/kg of fluid flow in J/kg +V=abs(W)*G; +disp(abs(V)/1000, "The Power required to pump acid in kW :"); +//part 2 +P2=-u^2*rhon/2+g*(h1)*rhon+abs(W+2)*rhon;; +disp(P2/1000,"The gauge pressure at pump outlet when piping is new in (kPa)" ); +//part 3 +e=.05/1000; +Re=rhon*d*u/mun; +rr=e/d; +//Reading's from Moody's Chart +phi=0.0029; +W=u^2/2+g*(h2-h1)+4*phi*l*u^2/d; +Vnew=abs(W)*G; +Pi=(Vnew-V)/V*100; +disp(Pi , "The increase in power required to transfer in old pipe in (%):"); +//part 4 +P2=-u^2*rhon/2+g*(h1)*rhon+abs(W+2)*rhon; +disp(P2/1000,"The gauge pressure at pump outlet when piping is old in (kPa)" ); \ No newline at end of file -- cgit