2870/CH6/EX6.7/Ex6_7.sce


1
2
3
4
5
6
7
8
9
10
11
12

clc;clear;
//Example 6.7

//given data
TL=-5+273;//in C
TH=21+273;//in C
QH=37.5;

//calculations
COPHP=1/(1-TL/TH);
Wnet=QH/COPHP;
disp(Wnet,'minimum power required in kW')