summaryrefslogtreecommitdiff
path: root/2837/CH19/EX19.13/Ex19_13.sce
blob: de3027d69c55e34f68850586bf3533e672d99df3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc
clear
//Initalization of variables
n=1.4
t1=540 //R
tmax=1500 //F
pr=5
cp=0.24
t3=1558 //R
net=125.8 //Btu/lb
//calculations
Q=cp*(tmax+460-t3)
Qt=2*Q
eta=net/Qt*100
//results 
printf("Thermal efficiency = %.1f percent",eta)