summaryrefslogtreecommitdiff
path: root/551/CH3/EX3.20/20.sce
blob: f0a38fb11bdf0a6f308ff76be188e7b1382d1ab3 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
m=1; //kg
p=6; //bar
x=0.8;
T_s=473; //K
h_fg=2085; //kJ/kg
c_pw=4.18;
s_wet=c_pw*log(T_s/273)+x*h_fg/T_s;
disp("Entropy of wet steam=")
disp(s_wet)
disp("kJ/kg.K")