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

---
 32/CH7/EX7.03/7_03.sce | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100755 32/CH7/EX7.03/7_03.sce

(limited to '32/CH7/EX7.03/7_03.sce')

diff --git a/32/CH7/EX7.03/7_03.sce b/32/CH7/EX7.03/7_03.sce
new file mode 100755
index 000000000..e354fdf24
--- /dev/null
+++ b/32/CH7/EX7.03/7_03.sce
@@ -0,0 +1,49 @@
+//pathname=get_absolute_file_path('7.03.sce')
+//filename=pathname+filesep()+'7.03-data.sci'
+//exec(filename)
+//Mass of steam(in kg):
+m=15
+//Entering steam:
+//Pressure(in bar):
+p1=10
+//Temperature(in K):
+T1=300+273
+//Leaving steam:
+//Pressure(in bar):
+p2=0.05
+//Dryness fraction:
+x=0.95
+//Velocity(in m/s):
+v2=160
+//Atmosheric pressure(in bar):
+p0=1
+//Atmospheric temperature(in K):
+T0=15+273
+//From steam tables:
+h1=3051.2 //kJ/kg
+s1=7.1229 //kJ/kg.K
+sf=0.4764 //kJ/kg.K
+sfg=7.9187 //kJ/kg.K
+hf=137.82 //kJ/kg
+hfg=2423.7 //kJ/kg
+h0=62.99 //kJ/kg
+s0=0.2245 //kJ/kg.K
+//Enthalpy at exit of turbine(in kJ/kg):
+h2=hf+x*hfg
+//Entropy at exit of turbine(in kJ/kg.K):
+s2=sf+x*sfg
+//Work output(in kJ/kg):
+W=(h1-h2)-v2^2/2*10^(-3)
+//Power output(in kW):
+pW=m*W
+printf("\nRESULT")
+printf("\nPower output = %f kW",pW)
+//Maximum work given end states(in kW):
+Wmax=(h1-T0*s1)-(h2+v2^2/2*10^(-3)-T0*s2)
+printf("\nRESULT")
+printf("\n\nMaximum power output = %f kW",m*Wmax)
+//Maximum wor kavailable from exhaust steam(in kJ/kg):
+Ae=(h2-h0)+v2^2/2*10^(-3)-T0*(s2-s0)
+//Maximum power that could be obtained from exhaust steam(in kW):
+Wme=m*Ae
+printf("\n\nMaximum power from exhaust steam = %f kW",Wme)
\ No newline at end of file
-- 
cgit