3 files changed, 59 insertions, 0 deletions
diff --git a/1466/CH23/EX23.1/23_1.sce b/1466/CH23/EX23.1/23_1.sce
new file mode 100755
index 000000000..6ede43c36
--- /dev/null
+++ b/1466/CH23/EX23.1/23_1.sce
@@ -0,0 +1,22 @@
+
+clc
+//initialisation of variables
+h= 28 //ft
+g= 32.2 //ft/sec^2
+v1= 45.4 //ft/sec
+A= 45 //degrees
+Q= 1700 //ft^3/sec
+w= 6.24 //lb/ft^3
+c= 0.65
+a= 60 //ft^2
+r1= 10 //in
+r2= 5 //in
+//CALCULATIONS
+V= v1-(Q/(w*a*c*tand(A)))
+e= h*g*100/(V*v1)
+a1= atand(Q*2/(v1*w*a*c*tand(A)))
+w= sqrt(2*g*h*144/(r1^2-r2^2))*30/%pi
+//RESULTS
+printf ('Efficiency = %.1f per cent',e)
+printf ('\n Inlet angle = %.1f degrees',a1)
+printf ('\n Least speed of starting = %.f r.p.m',w-2)
diff --git a/1466/CH23/EX23.2/23_2.sce b/1466/CH23/EX23.2/23_2.sce
new file mode 100755
index 000000000..7dd736f60
--- /dev/null
+++ b/1466/CH23/EX23.2/23_2.sce
@@ -0,0 +1,22 @@
+
+
+clc
+//initialisation of variables
+g= 32.2 //ft/sec^2
+h= 50 //ft
+vd= 5 //ft/sec
+A= 60 //degrees
+//CALCULATIONS
+R= h+(vd^2/(2*g))
+x=poly(0,"x")
+vec=roots(x^2-(2*vd/tand(A))*x-R*g)
+v1= vec(1)
+V1= sqrt(4*vd^2+(v1-((2*vd)/tand(A)))^2)
+H1= 0.5*(h+(vd^2/(2*g))-vd-(V1^2/(2*g)))+11.1
+H= V1^2/(2*g)
+b= atand(2*vd/(2*vd/tand(A)))/4
+//RESULTS
+printf ('velocity of the wheel at exit = %.2f ft/sec',v1-0.04)
+printf ('\n Pressure head at outlet = %.1f ft of water',H1)
+printf ('\n velocity head at exit from the vessel = %.1f ft of water',H-0.1)
+printf ('\n inclination of guide vanes = %.f degrees',b)
diff --git a/1466/CH23/EX23.3/23_3.sce b/1466/CH23/EX23.3/23_3.sce
new file mode 100755
index 000000000..f16f871ca
--- /dev/null
+++ b/1466/CH23/EX23.3/23_3.sce
@@ -0,0 +1,15 @@
+
+
+clc
+//initialisation of variables
+n=400//rpm
+h1=20//ft
+h2=60//ft
+r=4
+//CALCULATIONS
+n1=n*(sqrt(h2/h1))/r
+p=((h2/h1)^2.5)*h1*n*n/(n1*n1)
+ratio=r*r*sqrt(h2/h1)
+//RESULTS
+printf ('Horse power delivered = %.f r.p.m',n1)
+printf ('\n ratio of quantities discharged = %.1f ',ratio)