summaryrefslogtreecommitdiff
path: root/2135/CH6/EX6.28/Exa_6_28.sce
blob: c58a244ac3be3f4a54579f009444e95266f12f5f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Exa 6.28
clc;
clear;
close;
format('v',7);

//Given Data :
p1=15;//bar
p2=15;//bar
p3=1;//bar
Tsup3=150;//degree C
mw=0.2;//Kg/min
ms=10;//Kg/min
x1=ms/(ms+mw);//dryness
disp(x1,"Dryness factor of steam : ");
hf2=844.7;//KJ/Kg(from steam table,at 15 bar)
hfg2=1945.2;//KJ/Kg(from steam table,at 15 bar)
hsup3=2776.3;//KJ/Kg(from steam table,at 15 bar)
//hsup3=hf2+x2*hfg2;//KJ/Kg
x2=(hsup3-hf2)/hfg2;//KJ/Kg
x=x1*x2;//dryness
disp(x,"Dryness fraction in the mains : ");
//Steam table is used to get some data.