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.22/Chapter4_Example22.sce | 40 ++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 1775/CH4/EX4.22/Chapter4_Example22.sce

(limited to '1775/CH4/EX4.22')

diff --git a/1775/CH4/EX4.22/Chapter4_Example22.sce b/1775/CH4/EX4.22/Chapter4_Example22.sce
new file mode 100755
index 000000000..1273d8a87
--- /dev/null
+++ b/1775/CH4/EX4.22/Chapter4_Example22.sce
@@ -0,0 +1,40 @@
+//Chapter-4, Illustration 22, Page 212
+//Title: Steam Nozzles and Steam Turbines
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+N=300;//Speed in rpm
+m=4.28;//Mass of steam in kg/s
+P=1.9;//Pressure of steam in bar
+x=0.93;//Dryness fraction
+W=3.5;//Stage power in kW
+r=0.72;//Ratio of axial flow velocity to blade velocity
+a1=20;//Nozzle angle at inlet in degrees
+b2=a1;//Blade tip angle at inlet in degrees
+l=0.08;//Tip leakage steam
+vg=0.929;//Specific volume of steam from steam tables in (m^3)/kg
+
+//CALCULATIONS
+mact=m-(m*l);//Actual mass of steam in kg/s
+a=(3.147*N)/60;//Ratio of blade velocity to mean dia
+b=r*a;//Ratio of axial velocity to mean dia
+c=46;//Ratio of change in whirl velocity to mean dia
+D=sqrt((W*1000)/(mact*c*a));//Mean dia in m
+Ca=b*D;//Axial velocity in m/s
+h=((mact*x*vg)/(3.147*D*Ca))*1000;//Blade height in mm
+D1=D-(h/1000);//Drum dia in m
+
+//OUTPUT
+mprintf('Drum diameter is %3.3f m \n Blade height is %3.0f mm',D1,h)
+
+
+
+
+
+
+
+
+
+//==============================END OF PROGRAM=================================
-- 
cgit