summaryrefslogtreecommitdiff
path: root/3831/CH14/EX14.8/Ex14_8.sce
blob: 7324a8d5a87d3abedb60cc580f261d28b650c162 (plain)
1
2
3
4
5
6
7
8
9
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);