initial commit / add all books

1 files changed, 25 insertions, 0 deletions

diff --git a/2006/CH8/EX8.1/ex8_1.sce b/2006/CH8/EX8.1/ex8_1.sce
new file mode 100755
index 000000000..f4ed1e1e9
--- /dev/null
+++ b/2006/CH8/EX8.1/ex8_1.sce
@@ -0,0 +1,25 @@
+clc;

+TH=311.06; // Source temperature in degree celcius

+pb=10; // Boiler pressure in MPa

+TL=32.88; // Sink temperature in degree celcius 

+pc=5; // Condenser pressure in kPa

+// From steam tables at pb

+h2=1407.56; // specific enthalpy in kJ/kg 

+h3=2724.7; // specific enthalpy in kJ/kg 

+s2=3.3596; // specific entropy in kJ/kg K

+s3=5.6141; // specific entropy in kJ/kg K

+// From steam tables at pc

+hf=137.82; hfg=2423.7; // specific enthalpy in kJ/kg 

+sf=0.4764; sfg=7.9187; // specific entropy in kJ/kg K

+x1=(s2-sf)/sfg; // quality of steam at state 1

+x4=(s3-sf)/sfg; // quality of steam at state 4

+h1=hf+x1*hfg; // specific enthalpy at state 1

+h4=hf+x4*hfg; // specific enthalpy at state 4

+wT=h3-h4; // Turbine work

+wC=h2-h1; // Compressor work

+wnet=wT-wC; // Net work output

+qH=h3-h2; // Heat added

+rw=wnet/wT; // Ratio of net work to trbine work

+eff_th=wnet/qH; // Thermal efficiency

+SSC=3600/wnet; // specific steam consumption

+disp ("kg/kWh",SSC,"specific steam consumption =","%",eff_th*100,"Thermal efficiency =",rw,"Ratio of net work to trbine work =");