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

---
 2969/CH4/EX4.17/Ex4_17.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 2969/CH4/EX4.17/Ex4_17.sce

(limited to '2969/CH4/EX4.17')

diff --git a/2969/CH4/EX4.17/Ex4_17.sce b/2969/CH4/EX4.17/Ex4_17.sce
new file mode 100755
index 000000000..50fbdbf46
--- /dev/null
+++ b/2969/CH4/EX4.17/Ex4_17.sce
@@ -0,0 +1,28 @@
+clc
+clear
+
+p1=10;                              //pressure in bar
+//At 10 bar and 300 deg celsius, from steam tables of superheated steam
+hsup=3051.2                         //kJ/kg
+Tsup=300+273;                       //temp. of steam in K
+//At 10 bar and 300 deg celsius, from steam tables of dry saturated steam
+Ts=179.9+273                        //temp. of steam in K
+vg=0.194;                           //m^3/kg
+
+//By vg/Ts = vsup/Tsup
+vsup=vg*Tsup/Ts;
+u1=hsup-p1*10^5*vsup/10^3;
+
+p2=1.4;                             //new pressure in bar
+x2=0.8;                             //dryness fraction
+//At 1.4 bar, from steam tables 
+hf2=458.4;                          //kJ/kg
+hfg2=2231.9;                        //kJ/kg
+vg2=1.236;                          //m^3/kg
+h2=hf2+x2*hfg2;                     //enthalpy of wet steam (after expansion)
+u2=h2-p2*10^5*x2*vg2/10^3;          //internal energy of this steam
+Du=u2-u1;                           //change in internal energy per kg
+
+printf(' (i) The Internal energy of superheated steam at 10 bar is: %4.1f kJ/kg. \n',u1);
+printf(' (ii) The Change in internal energy per kg is: %2.1f kJ. \n',Du);
+printf('     (Negative sign indicates DECREASE in internal energy.)' );
-- 
cgit