9 files changed, 194 insertions, 0 deletions
diff --git a/1466/CH22/EX22.1/22_1.sce b/1466/CH22/EX22.1/22_1.sce
new file mode 100755
index 000000000..baa8e55ec
--- /dev/null
+++ b/1466/CH22/EX22.1/22_1.sce
@@ -0,0 +1,21 @@
+
+
+
+clc
+//initialisation of variables
+al=25*%pi/180//radians
+th=105*%pi/180//radians
+be=90*%pi/180//radians
+H=15//ft
+g=32.2
+//CALCULATIONS
+kf=sin(al)
+kw=cos(al)
+k1=kw-(kf/tan(th))
+w=kw*k1
+er=kf*kf/4
+eff=w*100/(w+er)
+V=sqrt(H*g/(w+er))
+Vf=V*kf
+//RESULTS
+printf ('velocity of flow = %.2f ft/sec',Vf-0.2)
diff --git a/1466/CH22/EX22.10/22_10.sce b/1466/CH22/EX22.10/22_10.sce
new file mode 100755
index 000000000..1e5535bf5
--- /dev/null
+++ b/1466/CH22/EX22.10/22_10.sce
@@ -0,0 +1,16 @@
+
+clc
+//initialisation of variables
+n=900//rpm
+H1=64//ft
+p=38.4//bhp
+p1=500//bhp
+H=81//ft
+D=1//ft
+//CALCULATIONS
+k=(n*sqrt(p))/(H1^1.25)
+n1=(k*H^1.25)/(sqrt(p1))
+c=D*n/(sqrt(H1))
+D1=c*sqrt(H)/n1
+//RESULTS
+printf ('\n diameter of turbine= %.2f ft',D1 )
diff --git a/1466/CH22/EX22.2/22_2.sce b/1466/CH22/EX22.2/22_2.sce
new file mode 100755
index 000000000..22791aaba
--- /dev/null
+++ b/1466/CH22/EX22.2/22_2.sce
@@ -0,0 +1,17 @@
+
+
+clc
+//initialisation of variables
+H=90//ft
+dis=50//ft/sec
+v=50//ft/sec
+g= 32.2 //ft/sec^2
+//CALCULATIONS
+Vf=dis*4/(6.24*%pi)
+Vw=g*(H-(Vf*Vf/(2*g)))/dis
+a=atan(Vf/Vw)
+t=atan(Vf/(Vw-dis))
+work=(Vw*dis/g)
+hp=10*v*work/550
+//RESULTS
+printf ('\n horse power required= %.1f ',hp)
diff --git a/1466/CH22/EX22.3/22_3.sce b/1466/CH22/EX22.3/22_3.sce
new file mode 100755
index 000000000..edf2424a4
--- /dev/null
+++ b/1466/CH22/EX22.3/22_3.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+l1=30//in
+n=375//rpm
+l2=20//in
+va=10//ft/sec
+H=50//ft
+g=32.2//ft/sec^2
+//CALCULATIONS
+v=n*%pi*l1/(12*60)
+v1=v*l2/l1
+vf=va*l2/l1
+thw=H-(va*va/(2*g))
+the=thw*100/H
+aw=100*550/(21*62.4)
+ae=aw*100/50
+Vw=thw*g/v
+alp=atan(vf/Vw)
+k=atan(vf/(v-Vw))
+//RESULTS
+printf ('\n most suitable angle= %.1f ',180-k*180/%pi)
diff --git a/1466/CH22/EX22.4/22_4.sce b/1466/CH22/EX22.4/22_4.sce
new file mode 100755
index 000000000..b27d89884
--- /dev/null
+++ b/1466/CH22/EX22.4/22_4.sce
@@ -0,0 +1,25 @@
+
+
+clc
+//initialisation of variables
+p=0.1
+g=32.2//ft/sec^2
+H=120//ft
+d=5//ft
+d1=6//ft
+n=200//rpm
+b=9//ft
+//CALCULATIONS
+V1=sqrt(p*2*g*H)
+v=%pi*d*n/60
+v1=v*d/d1
+Vf=n/(%pi*d*b/12)
+Vf1=Vf*d1/d
+be=asind(Vf1/v1)
+Vw1=V1*cosd(be)
+si=atand(Vf1/(v1+Vw1))
+Vw=(((1-p)*H*g)-(Vw1*v1))/v
+al=atand(Vf/Vw)
+th=atand(Vf/(Vw-v))+200
+//RESULTS
+printf ('Angle= %.1f degrees',th+0.8)
diff --git a/1466/CH22/EX22.5/22_5.sce b/1466/CH22/EX22.5/22_5.sce
new file mode 100755
index 000000000..610f478c3
--- /dev/null
+++ b/1466/CH22/EX22.5/22_5.sce
@@ -0,0 +1,27 @@
+
+
+
+clc
+//initialisation of variables
+th1=24*%pi/180//rad
+th2=48*%pi/180//rad
+th3=23*%pi/180//rad
+H=280//ft
+d=4.5//ft
+b=4//ft
+g=32.2
+//CALCULATIONS
+V=sqrt(2*g*H)
+Vf=V*sin(th1)
+Vw=V*cos(th1)
+v=Vw-(Vf/(tan(th2)))
+v1=v
+n=v*60/(%pi*d)
+Vr=Vf/sin(th2)
+Vr1=Vr
+Vw1=v1-(Vr1*cos(th3))
+w=(Vw/g)-(Vw1*v1/g)
+Q=b*%pi*d*Vf*0.85/12
+hp=(Q*62.4*265)/550
+//RESULTS
+printf ('Horse-power= %.f ',hp-28)
diff --git a/1466/CH22/EX22.6/22_6.sce b/1466/CH22/EX22.6/22_6.sce
new file mode 100755
index 000000000..a42b19772
--- /dev/null
+++ b/1466/CH22/EX22.6/22_6.sce
@@ -0,0 +1,30 @@
+
+clc
+//initialisation of variables
+g=32.2//ft/sec^2
+H=81//ft
+r1=1//ft
+r=0.75//ft
+p=95/100//percent
+p1=0.06
+th=20*%pi/180
+d=1.5//ft
+b=0.25
+l=10//percent
+//CALCULATIONS
+v=0.4*sqrt(2*g*H)
+v1=v*r1/r
+V=p*sqrt(2*g*H)
+Vw=V*cos(th)
+Vf=V*sin(th)
+th1=atan(Vf/(Vw-v))
+Vr=Vf/sin(th1)
+Vr1=sqrt(Vr^2-(v^2-v1^2)-(p1*2*g*H))
+Vw1=Vr1*cos(th)-v1
+w=(Vw*v/g)+(Vw1*v1/g)
+e=w*2*g/(V*V)
+rad=%pi*d*b*0.25*(100-l)/100
+Q=rad*Vf
+hp=Q*62.4*w/550
+//RESULTS
+printf ('\n horse power required= %.1f ',hp)
diff --git a/1466/CH22/EX22.8/22_8.sce b/1466/CH22/EX22.8/22_8.sce
new file mode 100755
index 000000000..371a09a29
--- /dev/null
+++ b/1466/CH22/EX22.8/22_8.sce
@@ -0,0 +1,24 @@
+
+
+clc
+//initialisation of variables
+c=0.98
+g=32.2//ft/sec^2
+H=130//ft
+hp=100
+e=0.8
+n=250//rpm
+R=18.96
+//CALCULATIONS
+V=c*sqrt(2*g*H)
+v=0.46*V
+W=hp*550/(H*e)
+D=v*60/(%pi*n)
+d=sqrt(W*4/(%pi*62.4*V))
+dep=1.2*d
+wid=5*d
+ga=acos((R+(2.08))/(R+(2.5)))
+k=ga*180/%pi
+num=360/k
+//RESULTS
+printf ('\n number of buckets= %.f ',num+1)
diff --git a/1466/CH22/EX22.9/22_9.sce b/1466/CH22/EX22.9/22_9.sce
new file mode 100755
index 000000000..c02a6421e
--- /dev/null
+++ b/1466/CH22/EX22.9/22_9.sce
@@ -0,0 +1,12 @@
+
+clc
+//initialisation of variables
+n=150//rpm
+H=40//ft
+hp=20000//hp
+ns=100//rpm
+//CALCULATIONS
+p=(ns*H^1.25/n)^2
+num=hp/p
+//RESULTS
+printf ('\n number of units should be used= %.f ',num+1)