blob: 5ab73b9066294e85556e2f15fc6bc72fb6398f7d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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=================================
|
