initial commit / add all books

1 files changed, 35 insertions, 0 deletions

diff --git a/32/CH7/EX7.08/7_08.sce b/32/CH7/EX7.08/7_08.sce
new file mode 100755
index 000000000..1f1410212
--- /dev/null
+++ b/32/CH7/EX7.08/7_08.sce
@@ -0,0 +1,35 @@
+//pathname=get_absolute_file_path('7.08.sce')

+//filename=pathname+filesep()+'7.08-data.sci'

+//exec(filename)

+//Mass flow rate(in kg/s):

+m=5

+//At inlet to turbine,

+p1=5 //MPa

+T1=500+273.15 //ºK

+h1=3433.8 //kJ/kg

+s1=6.9759 //kJ/kg.K

+//At exit from turbine.

+p2=0.2 //MPa

+T2=140+273.15 //ºK

+h2=2748 //kJ/kg

+s2=7.228 //kJ/kg·K

+//At dead state,

+p0=101.3 //kPa

+T0=25+273.15 //ºK

+h0=104.96 //kJ/kg

+s0=0.3673 //kJ/kg · K

+//Heat loss(in kJ/s):

+Q=600

+//Availablity of steam at inlet(in kJ):

+A1=m*((h1-h0)-T0*(s1-s0))

+printf("\nRESULT")

+printf("\nAvailability of steam at inlet = %f kJ",A1)

+//Turbine output(in kW):

+W=m*(h1-h2)-Q

+printf("\n\nTurbine output = %f kW",W)

+//Maximum output(in kW):

+Wmax=m*((h1-h2)-T0*(s1-s2))

+printf("\n\nMaximum output = %f kW",Wmax)

+//Irreversibilty(in kW):

+I=Wmax-W

+printf("\n\nIrreversibility = %f kW",I)
\ No newline at end of file