summaryrefslogtreecommitdiff
path: root/1460/CH8/EX8.4/8_4.sce
blob: 8497fda12a69d9ce31eb32a86d567c28d1e6d6b1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
clc
//initialization of variables
Pratio=6
P=14.7 //lb/in^2
Tt1=60+460 //R
Tt3=1600+460 //R
w=60 //lb/sec
cp=0.24 //B/lbm F
g=1.4
R=53.3 //ft-lb/lbm R
//calculations
Tt2=Tt1*(Pratio)^((g-1)/g)
Tratio=Tt2/Tt1
Q=cp*(Tt3-Tt2)
eta=1- 1/Tratio
W=eta*778*Q
Wdot=w*W/550
//results
printf("Thermal efficiency = %.3f",eta)
printf("\n Horsepower output = %d hp",Wdot)