summaryrefslogtreecommitdiff
path: root/647/CH5/EX5.4/Example5_4.sce
blob: bf7a9c7e53e518ef4568aa4b422e9d88ebeb2860 (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
28
clear;
clc;

// Example: 5.4
// Page: 151

printf("Example: 5.4 - Page: 151\n\n");

// Solution

//*****Data*****//
m = 1;// [kg]
Tl = 273;// [K]
Th = 295;// [K]
Ql = 335;// [kJ/kg]
//*************//

// Solution (a)
// The coeffecient of performance of refrigerating machine is:
// COP = Ql/Wnet = Tl/(Th - Tl)
Wnet = Ql*(Th - Tl)/Tl;// [kJ]
printf("Minimum Work requirement is %d kJ\n",round(Wnet));

// Solution (b)
// Amount of heat released:
// Wnet = Qh - Ql
Qh = Wnet + Ql;// [kJ]
printf("Amount of heat released to the surrounding is %d kJ\n",round(Qh));