1 files changed, 38 insertions, 0 deletions
diff --git a/1775/CH4/EX4.18/Chapter4_Example18.sce b/1775/CH4/EX4.18/Chapter4_Example18.sce
new file mode 100755
index 000000000..8414b2e2f
--- /dev/null
+++ b/1775/CH4/EX4.18/Chapter4_Example18.sce
@@ -0,0 +1,38 @@
+//Chapter-4, Illustration 18, Page 207
+//Title: Steam Nozzles and Steam Turbines
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+U=150;//Blade speed in m/s
+m=3;//Mass flow rate of steam in kg/s
+P=10.5;//Pressure in bar
+r=0.21;//Ratio blade velocity to steam velocity
+a1=16;//Nozzle angle in first stage in degrees
+b2=20;//Blade angle at exit in first stage in degrees
+a3=24;//Nozzle angle in second stage in degrees
+b4=32;//Blade angle at exit in second stage in degrees
+Wr=0.79;//Blade friction factor for first stage
+Wr2=0.88;//Blade friction factor for second stage
+Cr=0.83;//Blade velocity coefficient
+W1=570;//Relative velocity at inlet from the velocity triangle for first stage in m/s
+C2=375;//Velocity in m/s
+W3=185;//Relative velocity at inlet from the velocity triangle for second stage in m/s
+
+//CALCULATIONS
+C1=U/r;//Steam speed at exit in m/s
+W2=Wr*W1;//Relative velocity at outlet for first stage in m/s
+C3=Cr*C2;//Steam velocity at inlet for second stage in m/s
+W4=Wr2*W3;//Relative velocity at exit for second stage in m/s
+DW1=W1+W2;//Change in relative velocity for first stage in m/s
+DW2=275;//Change in relative velocity from the velocity triangle for second stage in m/s
+ndia=((2*U*(DW1+DW2))/(C1^2))*100;//Diagram efficiency
+
+//OUTPUT
+mprintf('Diagram efficiency is %3.1f percent',ndia)
+
+
+
+
+//==============================END OF PROGRAM=================================