1 files changed, 37 insertions, 0 deletions
diff --git a/1808/CH6/EX6.6/Chapter6_Exampl6.sce b/1808/CH6/EX6.6/Chapter6_Exampl6.sce
new file mode 100644
index 000000000..1752e8c6b
--- /dev/null
+++ b/1808/CH6/EX6.6/Chapter6_Exampl6.sce
@@ -0,0 +1,37 @@
+clc
+clear
+//INPUT DATA
+t21=335.19;//temperature in K
+t3=343.19;//temperature in K
+cp=0.64;//Specific pressure
+m=0.008;//mass flow rate in kg/s
+p1=4.4962;//pressure in MPa
+p2=1.6;//pressure in MPa
+hf1=47.26;//enthalpy in kJ/kg
+hfg1=145.30;//enthalpy in kJ/kg
+hg1=192.56;//enthalpy in kJ/kg
+hf2=98.19;//enthalpy in kJ/kg
+hfg2=111.62;//enthalpy in kJ/kg
+hg2=209.81;//enthalpy in kJ/kg
+sf1=0.1817;//entropy in kJ/kgK
+sf2=0.6913;//entropy in kJ/kgK
+sg1=0.3329;//entropy in kJ/kgK
+sg2=0.6758;//entropy in kJ/kgK
+t2=343;//from t-s diagram temperature in K
+
+//CALCULATIONS
+h2=hg2+cp*(t2-t3);//enthalpy in kJ/kg
+wc=m*(h2-hg1);//compressor work in kJ/s
+Rc=m*(hg1-hf2);//Refrigiration capacity in kW
+Rc1=Rc*60/210;//Refrigiration capacity in TR
+copv=Rc/wc;//COP of VCR system
+
+//OUTPUT
+printf('(a)The compressive work input is %3.2f kJ/s \n (b)Refrigiration capacity is %3.4f TR \n (c)COPvcr is %3.3f \n',wc,Rc1,copv)
+
+
+
+
+
+
+