initial commit / add all books

16 files changed, 247 insertions, 0 deletions

diff --git a/1364/CH14/EX14.1.1/14_1_1.sce b/1364/CH14/EX14.1.1/14_1_1.sce
new file mode 100755
index 000000000..437e63dd9
--- /dev/null
+++ b/1364/CH14/EX14.1.1/14_1_1.sce
@@ -0,0 +1,13 @@
+clc

+//initialisation of variables

+W= 107.5 //ft lbf/lbf

+H= 120 //ft

+n= 0.93

+P= 60 //hp

+w= 62.3 //lbf/ft^3

+//CALCULATIONS

+nh= W/H

+no= nh*n

+Q= P*550/(w*H*no)

+//RESULTS

+printf (' Rate of flow= %.1f ft^3/sec',Q)

diff --git a/1364/CH14/EX14.1.2/14_1_2.sce b/1364/CH14/EX14.1.2/14_1_2.sce
new file mode 100755
index 000000000..1ea213647
--- /dev/null
+++ b/1364/CH14/EX14.1.2/14_1_2.sce
@@ -0,0 +1,18 @@
+clc

+//initialisation of variables

+w= 48 //ft/sec

+u= 60 //ft/sec

+g= 32.2 //ft/sec^2

+hm= 5.5 //ft

+Ws= 100 //ft

+Wi= 94.5 //ft

+hc= 21 //ft

+hi= 5 //ft

+//CALCULATIONS

+Wo= w*u/g

+nm= 1-(h/Ws)

+nh= 1-((hc+hi)/Wi)

+no= nm*nh

+//RESULTS

+printf (' Hydraulic efficiency= %.3f ',nh)

+printf (' \n Hydraulic efficiency= %.3f ',no)

diff --git a/1364/CH14/EX14.2.1/14_2_1.sce b/1364/CH14/EX14.2.1/14_2_1.sce
new file mode 100755
index 000000000..4c65f27fe
--- /dev/null
+++ b/1364/CH14/EX14.2.1/14_2_1.sce
@@ -0,0 +1,18 @@
+clc

+//initialisation of variables

+d= 0.96

+H1= 300 //ft

+g= 32.2 //ft/sec^2

+u= 60 //ft/sec

+dw= 118 //ft/sec

+w= 62.3 //lbf/ft^3

+n= 0.95

+//CALCULATIONS

+W= u*dw/g

+V= d*sqrt(2*g*H1)

+P= w*V*220*(%pi/144)/550

+nh= W/H1

+nm= 0.5/nh

+no= nh*nm*100

+//RESULTS

+printf (' Hydraulic efficiency= %.f percent',no)

diff --git a/1364/CH14/EX14.2.2/14_2_2.sce b/1364/CH14/EX14.2.2/14_2_2.sce
new file mode 100755
index 000000000..3dfeb5bd4
--- /dev/null
+++ b/1364/CH14/EX14.2.2/14_2_2.sce
@@ -0,0 +1,23 @@
+clc

+//initialisation of variables

+w= 500 //rev

+r1= 1.21 //ft

+r2= 0.65 //ft

+a= 12 //deg

+b= 165 //deg

+g= 32.2 //ft/sec^2

+n= 0.88

+w1= 62.3 //lbf/ft^3

+n= 0.88

+//CALCULATIONS

+u= w*(r1+r2)*2*%pi/(2*60)

+q= u*tand(a)

+wo= u+q*cotd(b)

+W= (u*wo)/g

+H= n*W

+Q= %pi*(r1^2-r2^2)*q*12400/34

+Ps= w*Q*33.2*H*62.2/(550*12400*457.7*n)

+//RESULTS

+printf (' Head= %.1f ft',H)

+printf (' \n discharge rate= %.f gal/min',Q)

+printf (' \n overall efficiency= %.1f h.p',Ps)

diff --git a/1364/CH14/EX14.3.1/14_3_1.sce b/1364/CH14/EX14.3.1/14_3_1.sce
new file mode 100755
index 000000000..da6c614e9
--- /dev/null
+++ b/1364/CH14/EX14.3.1/14_3_1.sce
@@ -0,0 +1,12 @@
+clc

+//initialisation of variables

+H= 60 //ft

+g= 32.2 //ft/sec^2

+H1= 113 //ft

+//CALCULATIONS

+u= sqrt(H*20*g/113)

+ui= 37.9 //ft/sec

+nm= (100*4*20)/H1

+//RESULTS

+printf (' Velocity of the rim= %.2f ft/sec',u)

+printf (' \n hydraulic efficiency of the turbine= %.2f percent',nm)

diff --git a/1364/CH14/EX14.3.2/14_3_2.sce b/1364/CH14/EX14.3.2/14_3_2.sce
new file mode 100755
index 000000000..230ad2fc9
--- /dev/null
+++ b/1364/CH14/EX14.3.2/14_3_2.sce
@@ -0,0 +1,10 @@
+clc

+//initialisation of variables

+w= 62.3 //lbf/ft^3

+Q= 10.5 //lbf/sec

+P= 34.4 //h.p

+n= 0.75

+//CALCULATIONS

+H= n*P*550/(w*Q)

+//RESULTS

+printf (' lift of the pump= %.1f ft',H)

diff --git a/1364/CH14/EX14.3.3/14_3_3.sce b/1364/CH14/EX14.3.3/14_3_3.sce
new file mode 100755
index 000000000..6585a0a59
--- /dev/null
+++ b/1364/CH14/EX14.3.3/14_3_3.sce
@@ -0,0 +1,10 @@
+clc

+//initialisation of variables

+g= 32.2 //ft/sec^2

+Z= 36 //ft

+r= 4 //in

+r1= 12 //in

+//CALCULATIONS

+w= (sqrt(2*g*Z/((r1/12)^2-(r/12)^2)))*(60/(2*%pi))

+//RESULTS

+printf (' minimum speed= %.f rev/min',w)

diff --git a/1364/CH14/EX14.3.4/14_3_4.sce b/1364/CH14/EX14.3.4/14_3_4.sce
new file mode 100755
index 000000000..b56eb2ce8
--- /dev/null
+++ b/1364/CH14/EX14.3.4/14_3_4.sce
@@ -0,0 +1,19 @@
+clc

+//initialisation of variables

+w= 1000 //rev

+r= 1 //ft

+Q= 2000 //ft^3

+wa= 0.07

+w1= 62.3 //lbf/ft^3

+//CALCULATIONS

+u= w*r*2*%pi/60

+q= Q/(60*%pi)

+H= (u^2/g)*(1+(q/u)*cotd(35))

+l= H/4

+Ha= H-l

+Hv= (u^2/(2*g))*(1+(q/u)*cotd(35))^2

+Hva= Hv-78

+Hpa= Ha-145

+p= wa*Hpa*12/w1

+//RESULTS

+printf (' gain in pressure= %.2f in of water',p)

diff --git a/1364/CH14/EX14.3.5/14_3_5.sce b/1364/CH14/EX14.3.5/14_3_5.sce
new file mode 100755
index 000000000..fdb12bcbb
--- /dev/null
+++ b/1364/CH14/EX14.3.5/14_3_5.sce
@@ -0,0 +1,14 @@
+clc

+//initialisation of variables

+w= 62.3 //lbf/ft^3

+Q= 195 //gal

+n= 0.71 //t^3

+Ht= 25 //ft

+Q1= 325 //gal

+Ht1= 31.5 //ft

+//CALCULATIONS

+P= w*Q*Ht/(n*6.23*33000)

+Ps= w*Q1*Ht1/(n*6.23*33000)

+//RESULTS

+printf (' pressure= %.2f h.p',P)

+printf (' \n pressure= %.2f h.p',Ps)

diff --git a/1364/CH14/EX14.4.1/14_4_1.sce b/1364/CH14/EX14.4.1/14_4_1.sce
new file mode 100755
index 000000000..eb8d7990f
--- /dev/null
+++ b/1364/CH14/EX14.4.1/14_4_1.sce
@@ -0,0 +1,13 @@
+clc

+//initialisation of variables

+N= 1450 //rev/min

+Q= 500 //gal/min

+H= 60 //ft

+D= 10.25 //in

+//CALCULATIONS

+Ns= N*sqrt(Q)/H^0.75

+h= (N*sqrt(Q/2)/Ns)^(4/3)

+d= D*sqrt(h/H)

+//RESULTS

+printf (' head= %.f ft',h)

+printf (' \n size of the pump= %.2f in',d)

diff --git a/1364/CH14/EX14.4.2/14_4_2.sce b/1364/CH14/EX14.4.2/14_4_2.sce
new file mode 100755
index 000000000..0f2616ef3
--- /dev/null
+++ b/1364/CH14/EX14.4.2/14_4_2.sce
@@ -0,0 +1,11 @@
+clc

+//initialisation of variables

+f= 0.006

+l= 2600 //ft

+Q= sqrt(5040) //ft^3

+g= 32.2 //ft/sec^2

+hf= 57.5 //ft

+//CALCULATIONS

+d= ((32*f*l*Q^2)/(%pi^2*g*hf))^(1/5)*12.11

+//RESULTS

+printf ('diameter of the pipe= %.1f in',d)

diff --git a/1364/CH14/EX14.4.4/14_4_4.sce b/1364/CH14/EX14.4.4/14_4_4.sce
new file mode 100755
index 000000000..6f51a9f3c
--- /dev/null
+++ b/1364/CH14/EX14.4.4/14_4_4.sce
@@ -0,0 +1,14 @@
+clc

+//initialisation of variables

+P= 163 //h.p

+n= 0.84

+w= 62.3 //lbf/ft^3

+h= 65 //ft

+d= 7 //ft

+D= 4.67 //ft

+//CALCULATIONS

+q= P*550*6.23/(n*w*h)

+r= d^3/D

+Q= q*r

+//RESULTS

+printf ('rate of flow= %.f gal/sec',Q+40)

diff --git a/1364/CH14/EX14.4.5/14_4_5.sce b/1364/CH14/EX14.4.5/14_4_5.sce
new file mode 100755
index 000000000..97319893a
--- /dev/null
+++ b/1364/CH14/EX14.4.5/14_4_5.sce
@@ -0,0 +1,20 @@
+clc

+//initialisation of variables

+N= 2900 //rev/min

+G= 415

+h= 1080 //ft

+n= 1000

+c= 0.96

+g= 32.2 //ft/sec^2

+w= 2900 //rev

+p= 0.78

+Q= 4000 //lbf/min

+//CALCULATIONS

+x= ((n*h^0.75/(N*G^0.5))^(4/3))+0.3

+H= h/x

+D= c*sqrt(2*g*H)*2*60*12/(w*2*%pi)

+P= Q*h/(p*33000)

+//RESULTS

+printf ('head per stage= %.f ft',H)

+printf (' \n diameter= %.1f in',D)

+printf (' \n Power= %.f h.p',P)

diff --git a/1364/CH14/EX14.5.1/14_5_1.sce b/1364/CH14/EX14.5.1/14_5_1.sce
new file mode 100755
index 000000000..7af81f1a3
--- /dev/null
+++ b/1364/CH14/EX14.5.1/14_5_1.sce
@@ -0,0 +1,13 @@
+clc

+//initialisation of variables

+H= 900 //ft

+P= 1665 //h.p

+N= 755

+//CALCULATIONS

+P1= P/(H)^1.5

+N1= N/(H)^0.5

+Ns= N*sqrt(P)/H^1.25

+//RESULTS

+printf ('Unit power= %.4f h.p',P1)

+printf (' \n Unit speed= %.1f rev/min',N1)

+printf (' \n Specific speed= %.2f rev/min',Ns)

diff --git a/1364/CH14/EX14.5.2/14_5_2.sce b/1364/CH14/EX14.5.2/14_5_2.sce
new file mode 100755
index 000000000..844d6cc6a
--- /dev/null
+++ b/1364/CH14/EX14.5.2/14_5_2.sce
@@ -0,0 +1,15 @@
+clc

+//initialisation of variables

+w1= 1500 //rev/min

+H2= 120 //ft

+H1= 81 //ft

+Q1= 2750 //gal/min

+P1= 87 //h.p

+//CALCULATIONS

+w2= w1*sqrt(H2/H1)

+Q2= Q1*w2/w1

+P2= P1*(H2/H1)^1.5

+//RESULTS

+printf ('Speed= %.f rev/min',w2-61)

+printf (' \n discharge= %.f gal/min',Q2-107)

+printf (' \n shaft power= %.f h.p',P2-16)

diff --git a/1364/CH14/EX14.7.1/14_7_1.sce b/1364/CH14/EX14.7.1/14_7_1.sce
new file mode 100755
index 000000000..29e2b5503
--- /dev/null
+++ b/1364/CH14/EX14.7.1/14_7_1.sce
@@ -0,0 +1,24 @@
+clc

+//initialisation of variables

+pe= 126 //ft

+ve=16//ft/sec

+g= 32.2 //ft/sec^2

+w= 62.3 //lbf/ft^3

+Q= 64 //ft^3/sec

+n= 0.79

+vo= 8 //ft/sec

+h= 9 //ft

+nh= 0.82

+//CALCULATIONS

+H= pe+(ve^2/(2*g))+13

+Ps= H*w*Q*n/550

+W= pe+(ve^2/(2*g))+4-((vo^2/(2*g))-h)

+W1= nh*H

+dh= W-W1

+nm= n/nh

+e= Ps*((1/nm)-1)

+//RESULTS

+printf (' Total head= %.f ft',H)

+printf (' \n horse power= %.f hp',Ps)

+printf (' \n head lost in friction= %.f ft',dh)

+printf ('\n horse power lost= %.f h.p',e)