1 files changed, 28 insertions, 0 deletions
diff --git a/647/CH5/EX5.4/Example5_4.sce b/647/CH5/EX5.4/Example5_4.sce
new file mode 100755
index 000000000..bf7a9c7e5
--- /dev/null
+++ b/647/CH5/EX5.4/Example5_4.sce
@@ -0,0 +1,28 @@
+clear;
+clc;
+
+// Example: 5.4
+// Page: 151
+
+printf("Example: 5.4 - Page: 151\n\n");
+
+// Solution
+
+//*****Data*****//
+m = 1;// [kg]
+Tl = 273;// [K]
+Th = 295;// [K]
+Ql = 335;// [kJ/kg]
+//*************//
+
+// Solution (a)
+// The coeffecient of performance of refrigerating machine is:
+// COP = Ql/Wnet = Tl/(Th - Tl)
+Wnet = Ql*(Th - Tl)/Tl;// [kJ]
+printf("Minimum Work requirement is %d kJ\n",round(Wnet));
+
+// Solution (b)
+// Amount of heat released:
+// Wnet = Qh - Ql
+Qh = Wnet + Ql;// [kJ]
+printf("Amount of heat released to the surrounding is %d kJ\n",round(Qh));
+\ No newline at end of file