diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /629/CH14/EX14.7/example14_7.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '629/CH14/EX14.7/example14_7.sce')
| -rw-r--r-- | 629/CH14/EX14.7/example14_7.sce | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/629/CH14/EX14.7/example14_7.sce b/629/CH14/EX14.7/example14_7.sce new file mode 100644 index 000000000..566e74ba5 --- /dev/null +++ b/629/CH14/EX14.7/example14_7.sce @@ -0,0 +1,35 @@ +clear
+clc
+//Example 14.7 NET POSITIVE SUCTION HEAD
+//To find Approx Value
+function [A]= approx (V,n)
+ A= round(V*10^n)/10^n; //V-Value, n-to what place
+ funcprot (0)
+endfunction
+g=32.2;//[ft/s^2]
+Gamma=62.2; //[lbf/ft^3]
+d=8/12; //diameter[ft]
+A=%pi*d^2/4 //area[ft^2]
+Q=2; //discharge[cfs]
+V2=approx(Q/A,2) //[ft/s]
+p1=14.7; //[lbf/in^2]
+//Pressure head at reservoir,hr
+hr=approx(p1*144/Gamma,0) //[ft]
+//Energy equation, (p1/gamma)+(V1^2/2g)+z1=(p2/gamma)+(V2^2/2g)+z2+hL
+//V1=0,z1=0
+z2=6; //[m]
+Ce=0.1; //entrance loss coefficient
+Cb=0.2; //bend loss coefficient
+hL=(Ce+Cb)*V2^2/(2*g)
+//Head at pump entrance, he=p2/Gamma
+he=approx(hr-z2-V2^2/(2*g)-hL,1) //[ft]
+pvap=0.506; //vapor pressure[psi]
+hp=pvap*144/Gamma //[ft]
+//Net positive suction head
+NPSH=he-hp //[ft]
+printf("\nThe net positive suction head = %.1f ft.\n",NPSH)
+//Traditional suction specific speed
+N=1750; //in rpm
+//1cfs=449 gpm
+Nss=N*(Q*449)^(1/2)/NPSH^(3/4)
+printf("\nThe traditional suction specific speed, Nss = %.f.\n",Nss)
\ No newline at end of file |