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/CH12/EX12.06/12_06.sce | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100755 32/CH12/EX12.06/12_06.sce

(limited to '32/CH12/EX12.06/12_06.sce')

diff --git a/32/CH12/EX12.06/12_06.sce b/32/CH12/EX12.06/12_06.sce
new file mode 100755
index 000000000..e3d0b30a9
--- /dev/null
+++ b/32/CH12/EX12.06/12_06.sce
@@ -0,0 +1,46 @@
+//pathname=get_absolute_file_path('12.06.sce')
+//filename=pathname+filesep()+'12.06-data.sci'
+//exec(filename)
+//Pressure at which steam is aupplied(in bar):
+p1=10
+//Dryness fraction:
+x=0.9
+//Pressure at exhaust(in bar):
+p3=1
+//Occurence of cut-off:
+r1=0.6
+//From steam tables:
+h1=2576.58 //kJ/kg
+v1=0.1751 //m^3/kg
+hf=417.46 //kJ/kg
+//Heat added per kg of steam(in kJ/kg):
+Q=h1-hf
+//Specific volume at state 2(inm^3/kg):
+v2=v1/r1
+//Expansion ratio:
+r=1/r1
+//Net expansive work per kg of steam(in kJ/kg):
+Wne=v1*(p1-p3)*10^2
+//Expansive work per kg of steam(in kJ/kg):
+We=p1*v1*10^2*log(r)-p3*10^2*(v2-v1)
+//Total work per kg of steam(in kJ/kg):
+Wt=Wne+We
+//Fraction of work obtained by expansive working:
+r2=We/Wt*100
+//Thermal efficiency of cycle:
+n=Wt/Q*100
+printf("\n RESULT \n")
+printf("\nFraction of expansive work = %f percent of total output",r2)
+printf("\nThermal efficiency  = %f percent",n)
+//Steam admitted per cycle when cut-off becomes unity(in kg):
+m=1/r1
+//Total work per cycle(in kJ):
+W=(p1-p3)*v1*m*10^2
+//% increase in work:
+dw=(W-Wt)/Wt*100
+//Modified thermal efficiency:
+n1=W/(m*Q)*100
+//% decrease in efficiency:
+dn=(n-n1)/n*100
+printf("\nPercentage increase in work = %f percent",dw)
+printf("\nPercentage decrease in efficiency = %f percent",dn)
\ No newline at end of file
-- 
cgit