summaryrefslogtreecommitdiff
path: root/2339/CH4/EX4.34.1/Ex4_34.sce
blob: a848a827ca4416193caf1e320c783c8f8460c670 (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
clc
clear

Ms=20;          //in kg
Mw=2;           //in kg
Cps=2.1;        //in kJ/kg K
x1=Ms/(Ms+Mw);  //Dryness fraction

//At 12 bar pressure
Hf1=798.6;          //in kJ/kg
Hfg1=1986.2;        //in kJ/kg

//At 1 bar pressure
Hg2=2675.5;         //in kJ/kg
Tsup=110+273;           //in K
Tsat=99+273;            //in K

//For throttling, H1=H2
H2=Hg2+(Cps*(Tsup-Tsat));
x2=(H2-Hf1)/Hfg1;

x=x1*x2;
printf('Dryness fraction of steam: %2.4f kJ',x);
printf('\n');