From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3814/CH7/EX7.4/Ex7_4.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 3814/CH7/EX7.4/Ex7_4.sce

(limited to '3814/CH7/EX7.4')

diff --git a/3814/CH7/EX7.4/Ex7_4.sce b/3814/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..90bd4878e
--- /dev/null
+++ b/3814/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,23 @@
+//determine the mean speed of turbine
+// ex 7.4 pgno.174 
+clc
+p=60e6 // power
+h=40// meter
+no=0.85 // overall efficiency
+x=0.5 // flow ratio 
+g=9.8 
+Ku=1.6 // speed ratio
+Q=p/(9800*no*h) // flow in kaplan turbine
+mprintf('\n Q = %d m3/s',Q)
+Vf=x*sqrt(2*g*h) // velocity of flow
+mprintf('\n Vf = %d m/s',Vf)
+d1=(%pi*(1-(0.35^2)))/4
+d=d1*Vf // diameter
+df=sqrt(180/d)
+mprintf('\n D1 = %f m',df)
+dh=0.35*df 
+mprintf('\n Dh = %f m',dh)
+D=(dh+df)/2 // mean diameter 
+mprintf('\n mean diameter D= %f m',D)
+N=(Ku*sqrt(2*g*h)*60)/(%pi*D) //rotational speed 
+mprintf('\n N = %f rev/min',N)
-- 
cgit