blob: 1851ae34eb74b225ece486d6fb33ee95dcd60452 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
clc
clear
//Initalization of variables
pr=5
p1=14 //psia
pd=3 //psi
pen=70 //psia
tin=1960 //R
n=1.4
cp=0.24
Qs=265 //Btu/lb
//calculations
p2=p1*pr
pe=pen-pd
prt=pe/p1
tex=tin/prt^((n-1)/n)
twork=cp*(tin-tex)
net=twork-75.9
eff=net/Qs *100
//results
printf("Thermal efficiency = %.1f percent",eff)
|
