summaryrefslogtreecommitdiff
path: root/551/CH3/EX3.13/13.sce
blob: e6ee81014f2c1944db79bb766ab834fd311306df (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc
p=18; //bar
x=0.85;
h_f=884.6; //kJ/kg
h_fg=1910.3; //kJ/kg
v_g=0.110; //m^3/kg
u_f=883; //kJ/kg
u_g=2598; //kJ/kg
v=x*v_g;
disp("Specific volume of wet steam=")
disp(v)
disp("m^3/kg")

h=h_f+x*h_fg;
disp("Specific enthalpy of wet steam=")
disp(h)
disp("kJ/kg")
u=(1-x)*u_f+ x*u_g;
disp("Specific internal energy of wet steam =")
disp(u)
disp("kJ/kg")