summaryrefslogtreecommitdiff
path: root/2141/CH9/EX9.15/Ex9_15.sce
blob: 918dee44fd6bdc93de4bd07ba1d9b7d7f488d9ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

clc
//initialisation of variables
P1=14.7 //lbf/in^2
P2=80.0 //lbf/in^2
T1=460 //R
T3=520 //R
Cp=0.24 //lbm
T2=T1*(1.624) //R
Wc=Cp*(T2-T1)//Btu/lbm
T3=520 //R
T4=T3/1.624//R
Wt=Cp*(T3-T4)//Btu/lbm
A=200//Btu/lbm 12000 //Btu/lbm
//CALCULATIONS
qH=Cp*(T2-T3)//Btu/lbm
qL=Cp*(T1-T4)//Btu/lbm
Wnet=Wc-Wt//Btu/lbm
Beta=(qL/Wnet)
Beta1=(A/qL)
//RESULTS
printf('Thecoefficient of performance for the cycle =% f',Beta1)