From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3843/CH6/EX6.9/Ex6_9.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 3843/CH6/EX6.9/Ex6_9.sce

(limited to '3843/CH6/EX6.9/Ex6_9.sce')

diff --git a/3843/CH6/EX6.9/Ex6_9.sce b/3843/CH6/EX6.9/Ex6_9.sce
new file mode 100644
index 000000000..ed478949d
--- /dev/null
+++ b/3843/CH6/EX6.9/Ex6_9.sce
@@ -0,0 +1,23 @@
+// Example 6_9
+clc;funcprot(0);
+// Given data
+m_1=4;// kg/s
+m_2=0.5;// kg/s
+T_1=45;// °C
+T_2=250;// °C
+P=600;// kPa
+
+// Calculation
+m_3=m_2+m_1;// kg/s
+// From steam tables
+h_2=2957.2;// kJ/kg
+h_1=188.4;// kJ/kg
+h_3=((m_2*h_2)+(m_1*h_1))/m_3;// kJ/kg
+// The exiting water temperature is interpolated from the saturated steam tables
+h_f=496;// kJ/kg
+T_3=(((496-461.3)/(503.7-461.3))*(110-100))+110;//  The exiting water temperature in °C
+s_3=1.508;// kJ/kg.K
+s_2=7.182;// The entropy of the entering superheated steam in kJ/kg.K
+s_1=0.639;// The entering entropy of the subcooled water in kJ/kg.K
+S_prod=(m_3*s_3)-(m_2*s_2)-(m_1*s_1);// kW/K
+printf("\nThe rate of entropy production,S_prod=%0.3f kW/K",S_prod);
-- 
cgit