summaryrefslogtreecommitdiff
path: root/1472/CH16/EX16.2/16_2.sce
blob: 5317d6746ab85d2139c43ddff92ebae8733bed34 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc
//initialization of variables
e=0.75
Ta=870 //R
Tc=1075//R
cp=0.24
Td=550 //R
Tb=1700;
//calculations
Tadash=e*(Tc-Ta) +Ta
Tcdash=Tc+Ta-Tadash
Q1=cp*(Tb-Tadash)
Q2=cp*(Tcdash-Td)
Wnet=Q1-Q2
eta=Wnet/Q1
//results
printf("Net work done = %d B/lb",Wnet)
printf("\n efficiency = %.2f ",eta)