summaryrefslogtreecommitdiff
path: root/1466/CH18
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1466/CH18
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 '1466/CH18')
-rwxr-xr-x1466/CH18/EX18.1/18_1.sce14
-rwxr-xr-x1466/CH18/EX18.2/18_2.sce32
-rwxr-xr-x1466/CH18/EX18.3/18_3.sce28
-rwxr-xr-x1466/CH18/EX18.4/18_4.sce28
4 files changed, 102 insertions, 0 deletions
diff --git a/1466/CH18/EX18.1/18_1.sce b/1466/CH18/EX18.1/18_1.sce
new file mode 100755
index 000000000..aebd89d19
--- /dev/null
+++ b/1466/CH18/EX18.1/18_1.sce
@@ -0,0 +1,14 @@
+
+clc
+//initialisation of variables
+f=0.0025
+l=10//ft
+T1=540//0 f
+d=1/8
+w1=0.208
+//CALCULATIONS
+k=f*l/d
+v1=27.15*sqrt(540)
+W=0.208*%pi*d*d*v1/4
+//RESULTS
+printf ('\n maximum discharge= %.3f lb/sec',W)
diff --git a/1466/CH18/EX18.2/18_2.sce b/1466/CH18/EX18.2/18_2.sce
new file mode 100755
index 000000000..7c7172f36
--- /dev/null
+++ b/1466/CH18/EX18.2/18_2.sce
@@ -0,0 +1,32 @@
+
+clc
+//initialisation of variables
+p1=200//lb/in^2
+p2=120//lb/in^2
+f=0.0025
+l=100//ft
+T1=600
+d=0.5
+g=32.2//ft/sec^2
+po=0.77//lb/ft^3
+mvi=0.412*10^-6
+f1=0.00185
+//CALCULATION
+k=f*l/d
+k1=p1/p2
+v1=19.5*sqrt(T1)
+T2=0.9513*T1
+r=k1*0.9513
+v2=r*v1
+mv=(v1+v2)/2
+mt=(T1+T2)/2
+mp=(p1+p2)/2
+Re=po*mv*d/(g*mvi)
+k2=(f1*l)/d
+nv1=21.4*sqrt(T1)
+T2=0.944*T1
+r=k1*0.944
+nv2=nv1*r
+W=0.95*%pi*d*d*nv1/4
+//RESULTS
+printf ('\n Discharge= %.1f lb/sec',W)
diff --git a/1466/CH18/EX18.3/18_3.sce b/1466/CH18/EX18.3/18_3.sce
new file mode 100755
index 000000000..79adc1e23
--- /dev/null
+++ b/1466/CH18/EX18.3/18_3.sce
@@ -0,0 +1,28 @@
+
+
+clc
+//initialisation of variables
+clear
+f=0.0025
+l=100//ft
+d=0.5
+p1=200//lb/in^2
+p2=120//lb/in^2
+T1=600//f
+w1=0.95//lb/ft^3
+g=32.2//ft/sec^2
+nT1=580//f
+nw1=0.87//lb/ft^3
+//CALCULATIONS
+k=f*l/d
+v1=19.5*sqrt(T1)
+pd1=w1*v1*v1/(144*2*g)
+np1=p1-pd1
+nv1=18.5*sqrt(nT1)
+nT2=0.97*nT1
+W=0.87*%pi*d*d*nv1/4
+r=np1*nT2/(p2*nT1)
+v2=nv1*r
+//CALCULLATIONS
+printf ('W = %.1f Lb/sec',W+0.1)
+printf ('\n v2 = %.f ft/sec',v2+2)
diff --git a/1466/CH18/EX18.4/18_4.sce b/1466/CH18/EX18.4/18_4.sce
new file mode 100755
index 000000000..d457e3934
--- /dev/null
+++ b/1466/CH18/EX18.4/18_4.sce
@@ -0,0 +1,28 @@
+
+clc
+//initialisation of variables
+f=0.002
+ T=520//F
+ p1=100//ln/in^2
+ p2=50//lb/ni^2
+ g=32.2//ft/sec^2
+ R=53.3
+ l=60//ft
+ d=0.25//in
+ n=0.37*10^-6//engineer units
+w=0.4//lb/ft^3
+w1=0.53
+f1=0.0022
+ //CALCULATIONS
+ r=p1/p2
+ v1=sqrt((g*R*T*((r*r)-1))/(2*r*r*(log(r)+(2*f*l/d))))
+ v2=r*v1
+ mv=(v2+v1)/2
+ mp=(p1+p2)/2
+ Re=(w*mv*d/(g*n))
+ nv1=sqrt((g*R*T*((r*r)-1))/(2*r*r*(log(r)+(2*f1*l/d))))
+ nv2=r*nv1
+ W=w1*%pi*d*d*nv1/4
+ //RESULTS
+ printf ('\n velocity at outlet= %.f ft/sec',nv2)
+ printf ('\n flow per second= %.2f lb/sec',W)