From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1775/CH4/EX4.15/Chapter4_Example15.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 1775/CH4/EX4.15/Chapter4_Example15.sce

(limited to '1775/CH4/EX4.15/Chapter4_Example15.sce')

diff --git a/1775/CH4/EX4.15/Chapter4_Example15.sce b/1775/CH4/EX4.15/Chapter4_Example15.sce
new file mode 100755
index 000000000..595d4258a
--- /dev/null
+++ b/1775/CH4/EX4.15/Chapter4_Example15.sce
@@ -0,0 +1,31 @@
+//Chapter-4, Illustration 15, Page 204
+//Title: Steam Nozzles and Steam Turbines
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+m=3;//Mass flow rate of steam in kg/s
+C1=425;//Steam velocity in m/s
+r=0.4;//Ratio of blade speed to jet speed
+W=170;//Stage output in kW
+IL=15;//Internal losses in kW
+a1=16;//Nozzle angle in degrees
+b2=17;//Blade angle at exit in degrees
+W1=265;//Relative velocity at inlet from the velocity triangle in m/s
+W2=130;//Relative velocity at outlet from the velocity triangle in m/s
+
+//CALCULATIONS
+U=C1*r;//Blade speed in m/s
+P=(W+IL)*1000;//Total power developed in W
+Cx=P/(m*W);//Change in whirl velocity in m/s
+ndia=((2*U*Cx)/(C1^2))*100;//Blading efficiency
+Wr=W2/W1;//Blade velocity co-efficient
+
+//OUTPUT
+mprintf('Blading efficiency is %3.1f percent \n Blade velocity co-efficient is %3.2f',ndia,Wr)
+
+
+
+
+//==============================END OF PROGRAM=================================
-- 
cgit