diff options
Diffstat (limited to '551/CH14/EX14.8')
| -rwxr-xr-x | 551/CH14/EX14.8/8.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/551/CH14/EX14.8/8.sce b/551/CH14/EX14.8/8.sce new file mode 100755 index 000000000..df63ab405 --- /dev/null +++ b/551/CH14/EX14.8/8.sce @@ -0,0 +1,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)
|