summaryrefslogtreecommitdiff
path: root/2420/CH13/EX13.3/13_3.sce
blob: 12f0be5d5f006a05ac5a9dbea833f220297fbfc2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
clear
//Initialization of variables
mr=3 //lb
hp=10 //hp
//calculations
h3=618 //Btu/lb
h1=131 //Btu/lb
Qe=mr*(h3-h1)
work=hp*2545/60
cop=Qe/work
//results
printf("Coefficient of performance = %.2f",cop)