summaryrefslogtreecommitdiff
path: root/2339/CH4/EX4.36.1/Ex4_36.sce
blob: 6a0d8a9b9c8c26abe3a02092770b974397f68496 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc
clear

P1=9;               //in bar
P2=1;               //in bar
T2=115+273;         //in K
m=1.8;              //in kg
m1=0.2;             //in kg
x1=m/(m+m1);        //Dryness fraction

//Now from steam table
Hf=742.8;           //in kJ/kg
Hfg=2031.1;         //in kJ/kg
Hg=2675.5;          //in kJ/kg
Tsat=99+273;        //in K
Tsup=115+273;       //in K
Cps=2.1;            //in kJ/kg K
H2=Hg+(Cps*(Tsup-Tsat));
x2=(H2-Hf)/Hfg;
x=x1*x2;
printf('The dryness fraction: %2.4f kJ',x);
printf('\n');