summaryrefslogtreecommitdiff
path: root/2141/CH9/EX9.4/Ex9_4.sce
blob: 7b457cafca8a661cc25ad9fdb1a68fa2c7613711 (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
25
26
27
28
29
30

clc
//initialisation of variables
h5=1407.7
h6=1170.5
h7=913.3
h1=69.7
v=0.01614
v2=0.01738
p1=1//lbf/in^2
p2=60//lbf/in^2
Wp=0.2//Btu/lbm
h3=262.1
h6=1170.5
h7=913.3
h4=263.8
p1=60//lbf/in^2
p2=600//lbf/in^2
g=144//ft
T=778//F
//CALCULATIONS
h2=h1+Wp//Btu/lbm
m=(h3-h1)/(h6-h2)//Btu/lbm
Wt=(h5-h6)+(1-m)*(h6-h7)//Btu/lbm
qH=(h5-h4)//Btu/lbm
Wp2=v2*(p2-p1)*g/T//Btu/lbm
Wnet=Wt-0.825*Wp-Wp2//Btu/lbm
N=Wnet/qH*100//per-cent
//RESULTS
printf('determine the cycle efficiency=% f per-cent',N)