summaryrefslogtreecommitdiff
path: root/2666/CH18/EX18.4/18_4.sce
blob: edf021a8ad7ac7fa44e32305f05e25ccdc6ad9f0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

clc
//initialisation of variables
f=18385//Btu per lb of fuel
m=925//Btu per lb
w=0.0159//ft
p=0.60//percent
h1=126.70//Btu per lb
h2=240.36//Btu per lb
hx=194.9//ft
w1=0.0119//lb fuel per lb air
q=1.0119//Btu per lb
p1=0.98//in
p2=28.77//ft
s=19800//ft in
g=398.47//ft
//CALCULATIONS
T=(q*(g-h2)*p1-(h1-p2)/p1)/(w1*s)*100//percent
//RESULTS
printf('the thermal efficency=% f percent',T)