9 files changed, 163 insertions, 0 deletions
diff --git a/2159/CH11/EX11.1/111.sce b/2159/CH11/EX11.1/111.sce
new file mode 100755
index 000000000..9d41ea1d8
--- /dev/null
+++ b/2159/CH11/EX11.1/111.sce
@@ -0,0 +1,18 @@
+// problem 11.1
+P=8820*1000
+N=600/60
+H=500
+Cv=0.97
+Cu=0.46
+no=0.85
+w=9810
+g=9.81
+Q=P/(no*w*H)
+V1=Cv*((2*g*H)^0.5)
+u=Cu*V1
+D=u/(3.142*N)
+d=D/15
+a=3.142*d*d/4
+n=Q/(a*V1)
+n1=round(n+1)
+disp(n1,d*100,D,Q,"discharge in m3/sec,wheel diameter in m, jet diameter in cm, number os jets ")
diff --git a/2159/CH11/EX11.2/112.sce b/2159/CH11/EX11.2/112.sce
new file mode 100755
index 000000000..2542ac775
--- /dev/null
+++ b/2159/CH11/EX11.2/112.sce
@@ -0,0 +1,17 @@
+// problem 11.2
+H=46
+Q=1
+u1=15
+y=165
+y2=180-y
+Cv=0.975
+g=9.81
+V1=((2*g*H)^0.5)
+Vw1=V1
+Vr1=V1-u1
+Vr2=Vr1
+Vw2=(Vr2*(cosd(y2)))-u1
+w=9810
+P=(w*Q*(Vw1+Vw2)*u1)/(g*1000)
+n=P*1000/(w*Q*H)
+disp(n*100,P,"power developed in Kw and efficiency of the wheel")
diff --git a/2159/CH11/EX11.3/113.sce b/2159/CH11/EX11.3/113.sce
new file mode 100755
index 000000000..d929a2e07
--- /dev/null
+++ b/2159/CH11/EX11.3/113.sce
@@ -0,0 +1,14 @@
+// problem 11.3
+H=340
+P=4410*1000
+N=500/60
+Cv=0.97
+no=0.86
+w=9810
+g=9.81
+Q=P/(w*H*no)
+V1=Cv*(sqrt(2*g*H))
+u=0.45*V1
+D=u/(3.142*N)
+a=Q/V1
+disp(a,D,"mean diameter in m,jet area in m2")
diff --git a/2159/CH11/EX11.4/114.sce b/2159/CH11/EX11.4/114.sce
new file mode 100755
index 000000000..e9ff261ea
--- /dev/null
+++ b/2159/CH11/EX11.4/114.sce
@@ -0,0 +1,26 @@
+// problem 11.4
+H=45
+Q=50/60
+u1=12.5
+y=160
+y2=180-y
+Cv=0.97
+g=9.81
+V1=Cv*((2*g*H)^0.5)
+Vw1=V1
+Vr1=V1-u1
+Vr2=Vr1
+Vw2=Vr2*(cosd(y2))-u1
+w=9810
+P=(w*Q*(Vw1+Vw2)*u1)/(g*1000)
+nh=(2*u1*(Vw1+Vw2))/(V1*V1)
+disp(nh*100,P,"power developed in Kw and hydraulic efficiency")
+H1=50
+V11=Cv*((2*g*H1)^0.5)
+Vw11=V11
+Vr11=V11-u1
+Vr21=Vr11
+Vw21=Vr21*(cosd(y2))-u1
+w=9810
+P=(w*Q*(Vw11+Vw21)*u1)/(g*1000)
+disp(P,"Power developed in Kw if head is increased to 50")
diff --git a/2159/CH11/EX11.5/115.sce b/2159/CH11/EX11.5/115.sce
new file mode 100755
index 000000000..0ba03f77e
--- /dev/null
+++ b/2159/CH11/EX11.5/115.sce
@@ -0,0 +1,17 @@
+// problem 11.5
+H=50
+Q=1.2
+u1=18
+y=160
+y2=180-y
+Cv=0.94
+g=9.81
+V1=Cv*((2*g*H)^0.5)
+Vw1=V1
+Vr1=V1-u1
+Vr2=Vr1
+Vw2=Vr2*(cosd(y2))-u1
+w=9810
+P=(w*Q*(Vw1+Vw2)*u1)/(g*1000)
+n=P*1000/(w*Q*H)
+disp(n*100,P,"power developed in Kw and efficiency of the wheel")
diff --git a/2159/CH11/EX11.6/116.sce b/2159/CH11/EX11.6/116.sce
new file mode 100755
index 000000000..2a851a22c
--- /dev/null
+++ b/2159/CH11/EX11.6/116.sce
@@ -0,0 +1,13 @@
+// problem 11.6
+D=1
+N=1000/60
+H=700
+y=165
+y2=180-y
+Q=0.1
+Cv=0.97
+g=9.81
+u=D*3.142*N
+V1=Cv*(sqrt(2*g*H))
+nh=(2*u*(V1-u)*(1+(cosd(y2))))/(V1*V1)
+disp(nh*100,"hydraulic efficiency of the wheel")
diff --git a/2159/CH11/EX11.7/117.sce b/2159/CH11/EX11.7/117.sce
new file mode 100755
index 000000000..6efe8c6e8
--- /dev/null
+++ b/2159/CH11/EX11.7/117.sce
@@ -0,0 +1,20 @@
+// problem 11.7
+Hg=500
+hf=Hg/3
+H=Hg-hf
+Q=2
+y=165
+y2=180-y
+g=9.81
+w=9810
+Cv=1
+V1=Cv*(sqrt(2*g*H))
+u=0.45*V1
+Vr1=V1-u
+Vw1=V1
+Vr2=Vr1
+Vw2=(Vr2*(cosd(y2)))-u
+W=w*Q*(Vw1+Vw2)*u/g
+P=W/1000
+nh=2*u*(Vw1+Vw2)/(V1*V1)
+disp(nh*100,P,"power given by the water to the runner in Kw,Hydraulic efficiency")
diff --git a/2159/CH11/EX11.8/118.sce b/2159/CH11/EX11.8/118.sce
new file mode 100755
index 000000000..5c94ac786
--- /dev/null
+++ b/2159/CH11/EX11.8/118.sce
@@ -0,0 +1,18 @@
+// problem 11.8
+L=1600
+H=550
+Dp=1.2
+d=0.18
+f=0.006
+Cv=0.97
+g=9.81
+V1=Cv*(sqrt(2*g*H))
+a=3.142*d*d/4
+Q=a*V1
+w=9810
+P=(w*Q*V1*V1)/(2*g*1000)
+ap=3.142*Dp*Dp/4
+Vp=Q/ap
+Hf=(4*f*L*Vp*Vp)/(Dp*2*g)
+Tp=4*w*Q*(H+Hf)/1000
+disp(Tp,P,"power to each jet in Kw,total power at reserviour i Kw")
diff --git a/2159/CH11/EX11.9/119.sce b/2159/CH11/EX11.9/119.sce
new file mode 100755
index 000000000..afd2086f1
--- /dev/null
+++ b/2159/CH11/EX11.9/119.sce
@@ -0,0 +1,20 @@
+// problem 11.9
+Q=4
+H=250
+L=3000
+n1=4
+n=0.91
+nh=0.9
+Cv=0.975
+f4=0.0045
+hf=H-H*n
+Hn=H-hf
+g=9.81
+w=9810
+V1=Cv*(sqrt(2*g*Hn))
+Pw=w*Q*V1*V1/(2*g*1000)
+Pt=nh*Pw
+q=Q/n1
+d=sqrt(4*q/(3.142*V1))
+D=((f4*L*16*16)/(2*g*3.142*3.142*hf))^0.2
+disp(D,d,Pt,"power developed by turbine in Kw,diameter jet and diameter of pipeline")