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

---
 2339/CH4/EX4.24.1/Ex4_24.sce | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100755 2339/CH4/EX4.24.1/Ex4_24.sce

(limited to '2339/CH4/EX4.24.1')

diff --git a/2339/CH4/EX4.24.1/Ex4_24.sce b/2339/CH4/EX4.24.1/Ex4_24.sce
new file mode 100755
index 000000000..beec1031f
--- /dev/null
+++ b/2339/CH4/EX4.24.1/Ex4_24.sce
@@ -0,0 +1,38 @@
+clc
+clear
+
+//At state 1
+P1=20;              //in bar
+V=2;
+Vg1=0.0996;         //in m^3/kg
+Tsat1=212.4+273;        //in K
+Tsup1=573;          //in K
+V1=Vg1*(Tsup1/Tsat1);
+m=V/V1;
+
+//At state 2
+V2=V1;
+Vg2=V2;
+P2=16.9;            //From Steam Table
+
+//Calculations
+Hg1=2799.5;         //in kJ/kg
+Cps=2.1;            //in kJ/kg K
+H1=m*(Hg1+(Cps*(Tsup1-Tsat1)));
+U1=H1-(P1*100*V);
+
+Hg2=2795.5;         //in kJ/kg from Steam table
+H2=m*Hg2;
+U2=H2-(P2*100*V);
+
+Q=U2-U1;
+printf('Heat Transferred: %3.1f kJ',Q);
+printf('\n');
+
+Sg1=6.341;              //in kJ/kg K
+S1=Sg1+(Cps*log(Tsup1/Tsat1));
+
+S2=6.4022;             //From Steam Table
+S=m*(S2-S1);
+printf('Change in Entropy: %3.3f kJ/K',S);
+printf('\n');
-- 
cgit