initial commit / add all books

1 files changed, 36 insertions, 0 deletions

diff --git a/1775/CH6/EX6.13/Chapter6_Example13.sce b/1775/CH6/EX6.13/Chapter6_Example13.sce
new file mode 100755
index 000000000..15cf6908e
--- /dev/null
+++ b/1775/CH6/EX6.13/Chapter6_Example13.sce
@@ -0,0 +1,36 @@
+//Chapter-6, Illustration 13, Page 319

+//Title: Refrigeration cycles

+//=============================================================================

+clc

+clear

+

+//INPUT DATA

+T1=277;//Temperature at point 1 in K

+T3=328;//Temperature at point 3 in K

+P1=0.1;//Pressure at point 1 in MPa

+P2=0.3;//Pressure at point 2 in MPa

+nc=0.72;//Isentropic efficiency of compressor

+nt=0.78;//Isentropic efficiency of turbine

+y=1.4;//Adiabatic gas constant

+Cp=1.005;//Specific heat at constant pressure in kJ/kg-K

+m=3;//Cooling load in tonnes

+

+//CALCULATIONS

+x=(y-1)/y;//Ratio

+T2s=T1*((P2/P1)^x);//Temperature at point 2s in K

+T2=((T2s-T1)/nc)+T1;//Temerature at point 2 in K

+T4s=T3*((P1/P2)^x);//Temperature at point 4s in K

+T4=T3-((T3-T4s)*nt);//Temperature at point 4 in K

+Re=Cp*(T1-T4);//Refrigerating effect in kJ/kg

+Wnet=Cp*((T2-T1)-(T3-T4));//Net work output in kJ/kg

+COP=Re/Wnet;//Co-efficient of performance

+P=(m*3.52)/COP;//Driving power required in kW

+ma=(m*3.52)/Re;//Mass flow rate of air in kg/s

+

+//OUTPUT

+mprintf('COP of refrigerator is %3.2f \n Driving power required is %3.0f kW \n Mass flow rate of air is %3.3f kg/s',COP,P,ma)

+

+

+

+

+//==============================END OF PROGRAM=================================