diff options
Diffstat (limited to '3831/CH14/EX14.8/Ex14_8.sce')
| -rw-r--r-- | 3831/CH14/EX14.8/Ex14_8.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/3831/CH14/EX14.8/Ex14_8.sce b/3831/CH14/EX14.8/Ex14_8.sce new file mode 100644 index 000000000..7324a8d5a --- /dev/null +++ b/3831/CH14/EX14.8/Ex14_8.sce @@ -0,0 +1,10 @@ +// Example 14_8
+clc;funcprot(0);
+// Given data
+T_g=100;// °C
+T_e=5.00;// °C
+T_a=20.0;// °C
+
+// Calculation
+COP_Car=((T_e+273.15)/(T_g+273.15))*((T_g-T_a)/(T_a-T_e));// The Carnot absorption refrigeration coefficient of performance
+printf("\nThe Carnot absorption refrigeration coefficient of performance,(COP)_Carnot absorption refrigerator=%1.2f",COP_Car);
|