blob: 7ba02eb0c588647719f15830fcb197ddc943ffd8 (
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
|
//Chapter-4, Illustration 11, Page 174
//Title: Steam Nozzles and Steam Turbines
//=============================================================================
clc
clear
//INPUT DATA
P1=10;//Pressure at point 1 in bar
T1=452.9;//Temperature at point 1 in K
P2=4;//Pressure at point 2 in bar
n=1.3;//Adiabatic gas constant
Ps=0.803;//Saturation pressure at T2 in bar
Ts=143.6;//Saturation temperature at P2 in oC
//CALCULATIONS
x=(n-1)/n;//Ratio
T2=((P2/P1)^x)*T1;//Temperature at point 2 in K
Ds=P2/Ps;//Degree of supersaturation
Du=Ts-(T2-273);//Degree of undercooling
//OUTPUT
mprintf('Degree of supersaturation is %3.2f \n Degree of undercooling %3.0f oC',Ds,Du)
//==============================END OF PROGRAM=================================
|
