summaryrefslogtreecommitdiff
path: root/2024/CH14/EX14.1/14_1.sce
blob: 2e1ce12803b259b2286908d1ca77c9e5191dd1cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
//Initialization of variables
Ta=500 //R
Tr=540 //R
//calculations
cop=Ta/(Tr-Ta)
hp=4.71/cop
disp("From steam tables,")
ha=48.02
hb=46.6
hc=824.1
hd=886.9
Wc=-(hd-hc)
We=-(hb-ha)
//results
printf("Coefficient of performance = %.1f ",cop)
printf("\n horsepower required per ton of refrigeration = %.3f hp/ton refrigeration",hp)
printf("\n Work of compression = %.1f Btu/lbm",Wc)
printf("\n Work of expansion = %.2f Btu/lbm",We)