summaryrefslogtreecommitdiff
path: root/2066/CH7/EX7.5
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2066/CH7/EX7.5
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2066/CH7/EX7.5')
-rwxr-xr-x2066/CH7/EX7.5/7_5.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/2066/CH7/EX7.5/7_5.sce b/2066/CH7/EX7.5/7_5.sce
new file mode 100755
index 000000000..d5e3f0520
--- /dev/null
+++ b/2066/CH7/EX7.5/7_5.sce
@@ -0,0 +1,25 @@
+clc
+clear
+//Initialization of variables
+spg=0.84
+z=1 //in
+gam=62.4
+patm=14.7 //psia
+T=459.6+85 //R
+R=53.3
+g=32.2 //ft/s^2
+D=3 //ft
+mu=3.88e-7 //lb-sec/ft^2
+//calculations
+dp=spg*z/12 *gam
+rho=patm*144/(R*T*g)
+umax=sqrt(2*dp/rho)
+V=0.8*umax
+Nr=V*D*rho/mu
+V2=0.875*umax
+mass=rho*%pi/4 *D^2 *V2
+emf=V2^2 /(2*g)
+hp=emf*mass*g/550
+//results
+printf("Mass flow rate = %.2f slug/sec",mass)
+printf("\n Horsepower input of the fan = %.2f hp",hp)