initial commit / add all books

1 files changed, 31 insertions, 0 deletions

diff --git a/2006/CH8/EX8.8/ex8_8.sce b/2006/CH8/EX8.8/ex8_8.sce
new file mode 100755
index 000000000..964929be8
--- /dev/null
+++ b/2006/CH8/EX8.8/ex8_8.sce
@@ -0,0 +1,31 @@
+clc;

+TL=-15; // Source temperature in degree celcius

+TH=40; // Sink temperature in degree celcius

+// From the table of properties of Freon - 12

+h3=74.53; h1=180.85; h4=h3; // specific enthalpy in kJ/kg 

+s1=0.7046; s2=0.682; // specific entropy in kJ/kg K

+// (a)               

+// (i).Condensor and Evaporator pressure

+pc=0.9607; // Saturation pressure at TH in MPa

+pE=0.1826; // Saturation pressure at TL in MPa

+disp ("MPa",pE,"Evaporator pressure = ","MPa",pc,"Condensor pressure = ","(i).Condensor and Evaporator pressure","(a)");

+// (ii).Compressor discharge temperature  & Enthalpy

+p2=pc; // Condensor pressure

+s2=s1; // refer figure 8.25

+// From the table of properties of Freon - 12 at pc

+t2=46.8; // Compressor discharge temperature in degree celcius

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

+disp ("kJ/kg",h2,"Enthalpy = ","oC",t2,"Compressor discharge temperature = ","(ii).Compressor discharge temperature  & Enthalpy");

+// (iii).Ratio of COP of the cycle to Carnot COP

+w=h2-h1; // Compressor work

+qL=h1-h4; // Refrigeration effect

+COP=qL/w; // COP of the cycle

+COPc=4.68; // COP of carnot cycle from example 8.7

+r=COP/COPc; // Ratio of COP of the cycle to Carnot COP

+disp (r,"(iii).Ratio of COP of the cycle to Carnot COP = ");

+// (b)                

+QL=0.440; // Capacity of refrigerator in kW (1/8 ton of refrigeration)

+m=QL/qL; // Mass flow rate of refrigerant

+W=m*w; // Power consumption of compressor

+QH=QL+W; // Heat rejected

+disp ("kW",QH,"Heat rejected to surroundings = ","kW",W,"Power consumption of compressor = ","kg/s",m,"Mass flow rate of refrigerant = ","(b)");