2870/CH6/EX6.4/Ex6_4.sce


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

clc;clear;
//Example 6.4

//given data
COP=2.5;
QH=80000;

//calculations
Wnet=QH/COP;
disp(Wnet,'the power consumed in kJ/h')
QL=QH-Wnet;
disp(QL,'the rate at which heat is absorbed in kJ/h')