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/CH7/EX7.7/Example7_7.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 647/CH7/EX7.7/Example7_7.sce

(limited to '647/CH7/EX7.7/Example7_7.sce')

diff --git a/647/CH7/EX7.7/Example7_7.sce b/647/CH7/EX7.7/Example7_7.sce
new file mode 100755
index 000000000..691bb18a0
--- /dev/null
+++ b/647/CH7/EX7.7/Example7_7.sce
@@ -0,0 +1,31 @@
+clear;
+clc;
+
+// Example: 7.7
+// Page: 274
+
+printf("Example: 7.7 - Page: 274\n\n");
+
+// Solution
+
+//*****Data******//
+T_steam1 = 50;// [OC]
+T_steam2 = 30;// [OC]
+msteam_dot = 10;// [kg/min]
+T_water1 = 15;// [OC]
+T_water2 = 25;// [OC]
+//***************//
+
+// Solution (a)
+// From the Stem Table:
+H1 = 2645.9;// [kJ/kg, At 50 OC]
+H2 = 768.2;// [kJ/kg, At 30 OC]
+H3 = 62.982;// [kJ/kg, At 15 OC]
+H4 = 104.83;// [kJ/kg, At 25 OC]
+// The mass & Energy balance of the above flow gives:
+mwater_dot = msteam_dot*(H1 - H2)/(H4 - H3);// [kg/min]
+printf("The mass flow rate of water is %.2f kg/min\n",mwater_dot);
+
+// Solution (b)
+Qdot = mwater_dot*(H4 - H3);// [kJ/min]
+printf("The rate of heat transfer is %.2f kJ/min",Qdot);
\ No newline at end of file
-- 
cgit