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

---
 1775/CH4/EX4.2/Chapter4_Example2.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 1775/CH4/EX4.2/Chapter4_Example2.sce

(limited to '1775/CH4/EX4.2/Chapter4_Example2.sce')

diff --git a/1775/CH4/EX4.2/Chapter4_Example2.sce b/1775/CH4/EX4.2/Chapter4_Example2.sce
new file mode 100755
index 000000000..5ab73b906
--- /dev/null
+++ b/1775/CH4/EX4.2/Chapter4_Example2.sce
@@ -0,0 +1,32 @@
+//Chapter-4, Illustration 2, Page 163
+//Title: Steam Nozzles and Steam Turbines
+//=============================================================================
+clc
+clear
+
+//INPUT DATA
+T1=273;//Temperature at section 1 in K
+P1=140;//Pressure at section 1 in KN/(m^2)
+v1=900;//Velocity at section 1 in m/s
+v2=300;//Velocity at section 2 in m/s
+Cp=1.006;//Specific heat at constant pressure in kJ/kg-K
+Cv=0.717;//Specific heat at constant volume in kJ/kg-K
+y=1.4;//Ratio of specific heats
+
+//CALCULATIONS
+c=y/(y-1);//Ratio
+R=Cp-Cv;//Universal gas constant in KJ/Kg-K
+T2=T1-(((v2)^2-(v1)^2)/(2000*c*R));//Temperature at section 2 in K
+DT=T2-T1;//Increase in temperature in K
+P2=P1*((T2/T1)^c);//Pressure at section 2 in KN/(m^2)
+DP=(P2-P1)/1000;//Increase in pressure in MN/(m^2)
+IE=Cv*(T2-T1);//Increase in internal energy in kJ/kg
+
+//OUTPUT
+mprintf('Increase in temperature is %3.0f K \n Increase in pressure is %3.2f MN/(m^2) \n Increase in internal energy is %3.0f kJ/kg',DT,DP,IE)
+
+
+
+
+
+//==============================END OF PROGRAM=================================
-- 
cgit