summaryrefslogtreecommitdiff
path: root/3685/CH6/EX6.1/Ex6_1.sce
blob: 913e36b47fc2571627e4d552b7e333f3161172a4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc
T1 = 800 // Source temperature in degree Celsius
T2 = 30 // Sink temperature in degree Celsius
e_max = 1-((T2+273)/(T1+273)) // maximum possible efficiency 
Wnet = 1  // in kW
Q1 = Wnet/e_max // Least rate of heat required in kJ/s
Q2 = Q1-Wnet  // Least rate of heat rejection kJ/s

printf("\n Example 6.1")
printf("\n Least rate of heat rejection is %f kW",Q2)
//The answers vary due to round off error