blob: 70357fa23af39775d196b21dac0996daed2965c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
clc
clear
//Initialization of variables
disp("From table 1 of keenan and keynes,")
in=440000 //lb/hr
out=255000 //lb/hr
p1=400 //psia
t1=700 //F
p2=35 //psia
t2=290 //F
vel=500 //ft/s
hp=44000 //hp
ent=1362.7 //Btu/lb
//calculations
ein=ent*in
eout=hp*2544 + out*1183 + 925000
h2= (ein-eout)/185000
//results
printf("Specific enthalpy of exhaust steam = %d Btu/lb",h2)
|
