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

---
 647/CH8/EX8.10/Example8_10.sce | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 647/CH8/EX8.10/Example8_10.sce

(limited to '647/CH8/EX8.10/Example8_10.sce')

diff --git a/647/CH8/EX8.10/Example8_10.sce b/647/CH8/EX8.10/Example8_10.sce
new file mode 100755
index 000000000..bce25e4d2
--- /dev/null
+++ b/647/CH8/EX8.10/Example8_10.sce
@@ -0,0 +1,42 @@
+clear;
+clc;
+
+// Example: 8.10
+// Page: 313
+
+printf("Example: 8.10 - Page: 313\n\n");
+
+// Solution
+
+//*****Data******//
+Q = 5;// [tons]
+T1 = 253;// [Temperature of the working fluid leaving the evaporator, K]
+T2 = 303;// [Temperature of the working fluid leaving the evaporator, K]
+T3 = 303;// [K]
+Pressure_Ratio = 4;
+C = 1.008;// [kJ/kg]
+gama = 1.4;
+//**************//
+
+// Solution (a)
+T2 = T1*((Pressure_Ratio)^((gama - 1)/gama));// [K]
+T2 = T1*(Pressure_Ratio)^((gama - 1)/gama);// [K]
+T4 = T3/((Pressure_Ratio)^((gama - 1)/gama));// [K]
+COP = T1/(T2 - T1);
+printf("COP of Air Refrigeration System is %.2f\n",COP);
+
+// Solution (b)
+mdot = Q*12660/(C*(T1 - T4));// [kg/h]
+printf("Mass flow rate of the refrigerant is %.2f kg/h\n",mdot);
+
+// Solution (c)
+Wcompression = mdot*C*(T2 - T3);// [kJ/h]
+printf("The work of Compression is %.2f kW\n",Wcompression/3600);
+
+// Solution (d)
+Wexpansion = mdot*C*(T1 - T4);// [kJ/h]
+printf("The work of expansion is %.2f kW\n",Wexpansion/3600);
+
+// Solution (e)
+Wnet = Wcompression - Wexpansion;// [kJ/h]
+printf("Net work of the system is %.2f kW\n",Wnet/3600);
\ No newline at end of file
-- 
cgit