summaryrefslogtreecommitdiff
path: root/2837/CH19/EX19.2/Ex19_2.sce
blob: 0c253cf0faf1b6c5d3c377d3710e3711ea213965 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
clc
clear
//Initalization of variables
work=75.9 //Btu/lb
twork=173.5 //Btu/lb
eta=0.8
t2=856 //R
t1=540 //R
t4=1960 //R
cp=0.24
//calculations
cwork=work/eta
internal=twork*eta
net=-cwork+internal
t2d=(t2-t1)/eta + t1
Qs=cp*(t4-t2d)
eff=net/Qs *100
//results
printf("Indicated compressor work = %.1f Btu/lb",cwork)
printf("\n Internal work = %.1f Btu/lb",internal)
printf("\n Net work = %.1f Btu/lb",net)
printf('\n Thermal efficiency = %.2f percent",eff)