summaryrefslogtreecommitdiff
path: root/551/CH4/EX4.51/51.sce
blob: 816c8187bd9e6f5bdbc0a9eeca1678fcb346d04a (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
clc
V=0.028; //m^3
p1=80; //bar
t=350; //0C
p2=50; //bar
v1=0.02995; //m^3/kg
h1=2987.3; //kJ/kg
v2=0.02995; //m^3/kg
vg2=0.0394; //m^3/kg
uf2=1149; //kJ/kg
ug2=2597; //kJ/kg

m=V/v1;
u1=h1 - (p1*v1*10^2); //kJ/kg


disp("(i) State of steam after cooling")
x2=v2/vg2;
disp("dryness fraction = ")
disp(x2)


disp("(ii) Heat rejected by the steam")
u2=(1-x2)*uf2 + x2*ug2;
Q=m*(u2-u1);
disp("Heat rejected = ")
disp(-Q)
disp("kJ")