blob: a4a3c8192cea084436b35a7582c69e2586eab274 (
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
//Initialization of variables
Q=6 //kJ/kg
p1=1.5 //Mpa
p2=0.1 //Mpa
t1=500 //C
t2=140.8 //C
h1=3473.1 //kJ
h2=2758.1 //kJ
s1=7.5698 //kJ/K
s2=7.5698 //kJ/K
eff=0.85
Ts=293.1 //K
//calculations
Wideal=h2-h1
Ws=eff*Wideal
dH=-Q-Ws
H2=h1+dH
S2=7.8005
ds=S2-s1
Wlost=Ts*ds+Q
//results
printf("lost work = %.1f kJ",Wlost)
|
