summaryrefslogtreecommitdiff
path: root/629/CH14/EX14.10/example14_10.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /629/CH14/EX14.10/example14_10.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '629/CH14/EX14.10/example14_10.sce')
-rw-r--r--629/CH14/EX14.10/example14_10.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/629/CH14/EX14.10/example14_10.sce b/629/CH14/EX14.10/example14_10.sce
new file mode 100644
index 000000000..448ee4aee
--- /dev/null
+++ b/629/CH14/EX14.10/example14_10.sce
@@ -0,0 +1,33 @@
+clear
+clc
+//Example 14.10 IMPULSE TURBINE
+z1=1670; //[m]
+z2=1000; //[m]
+g=9.81; //[m/s^2]
+L=6000; //length[m]
+f=0.015;
+Dj=0.18; //diameter [m]
+Aj=%pi*Dj^2/4 //area[m^2]
+Dp=1; //diameter of penstock[m]
+Ap=%pi*Dp^2/4 //area[m^2
+//Energy equation, (p1/gamma)+(V1^2/2g)+z1=(p2/gamma)+(Vj^2/2g)+z2+hL
+//p1=0,p2=0 ,Vp=Vj*(Aj/Ap), hL=f*L*Vp^2/(D*2*g)
+Vj=sqrt(2*g*(z1-z2)/(1+f*L*(Aj/Ap)^2/Dp)) //jet velocity[m/s]
+Gamma=9810;
+Q=Aj*Vj //[m^3/s])
+P=Q*Gamma*Vj^2/(2*g*10^3) //gross power[kW]
+eta=0.85; //efficiency
+Pd=P*eta //power developed [kW]
+printf("\nThe power developed by the turbine = %.f kW.\n",Pd)
+
+//Angular speed of wheel
+r=1.5; //radius[m]
+Vb=Vj/2 //[m/s]
+w=Vb/r //[rad/s]
+//Wheel speed
+N=w*60/(2*%pi) //in rpm
+printf("\nAngular speed of wheel for maximum efficiency = %.f rpm.\n",N)
+
+//Torque
+T=Pd/w //[kN.m]
+printf("\nThe torque on the turbine shaft = %.f kN.m\n",T) \ No newline at end of file