blob: 307bff06840a8e123c3e20b7a6791f1ea58ccbb8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
clc
//Initialization of variables
disp("From Mollier diagram,")
h1=1357 //500 psia, 700 F
h2=935 //P2=2 psia
h3=93.99 //sat liq at 2 psia
vf=0.01613
P4=500 //psia
P3=2 //psia
//calculations
dh4=vf*(P4-P3)*144/778
h4=h3+dh4
eta= ((h1-h2)-(h4-h3))/(h1-h4)
//results
printf("Thermal efficiency = %.1f percent ",eta*100)
|
