summaryrefslogtreecommitdiff
path: root/551/CH14/EX14.8/8.sce
blob: df63ab4054aae4a6dac4cbee3b6ca8e2e999cbb8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clc
T1=1273; //K
T2=298; //K
T3=268; //K
T4=298; //K

//Let Q2/Q1=r1, r2=Q3/Q4;
r1=298/1273; //Q2/Q1
r2=268/298; //Q3/Q4

//Let Q4/Q1=r
r=(1-r1)/(1-r2);
disp("The ratio in which the heat pump and heat engine share the heating load =")
disp(r)