1 files changed, 33 insertions, 0 deletions
diff --git a/32/CH8/EX8.24/8_24.sce b/32/CH8/EX8.24/8_24.sce
new file mode 100755
index 000000000..c3661d0ce
--- /dev/null
+++ b/32/CH8/EX8.24/8_24.sce
@@ -0,0 +1,33 @@
+//pathname=get_absolute_file_path('8.24.sce')
+//filename=pathname+filesep()+'8.24-data.sci'
+//exec(filename)
+//Turbine efficiency:
+nt=0.80
+//Mechanical efficiency:
+nm=0.90
+//Power delivered by turbine(in kW):
+p=720
+//From steam tables:
+h1=3045.8 //kJ/kg
+s1=7.0317 //kJ/kg.K
+s4=s1
+x4=0.841
+h4=2192.24 //kJ/kg.K
+h2=2706.7 //kJ/kg
+s2=7.1271 //kJ/kg.K
+s3=s2
+x3=0.854
+h3=2223.51 //kJ/kg
+//Enthalpy at state 4'(in kJ/kg):
+h4a=h1-(h1-h4)*nt
+//Enthalpy at state 3'(in kJ/kg):
+h3a=h2-(h2-h3)*nt
+//Power developed in the turbine(in kW):
+P=p/nm
+//HP steam consumption(in kg/kW.h):
+m1=3600/(h1-h4a)
+//LP steam consumption(in kg/kW.h):
+m2=3600/(h2-h3a)
+printf("\n RESULT \n")
+printf("\nHP steam consumption = %f kg/kW.h",m1)
+printf("\nLP steam consumption = %f kg/kW.h",m2)
+\ No newline at end of file