summaryrefslogtreecommitdiff
path: root/551/CH14/EX14.1/1.sce
blob: 418a1d84f82c897c766113277798525846179fd9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
clc
T2=235; //K
P=1.3; //kW

disp("(i) C.O.P. of Carnot refrigerator =")
COP=14000/P/60/60;
disp(COP)


disp("(ii) Higher temperature of the cycle =")
T1=T2/COP + T2;
t1=T1-273;
disp(t1)
disp("0C")


disp("(iii) Heat delivered as heat pump")
Qabs=14000/60; //Heat absorbed
W=P*60;
Q=Qabs+W;
disp("Q=")
disp(Q)
disp("kJ/min")

COP=Q/W;
disp("COP of heat pump =")
disp(COP)