diff options
Diffstat (limited to '3831/CH7/EX7.2/Ex7_2.sce')
| -rw-r--r-- | 3831/CH7/EX7.2/Ex7_2.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/3831/CH7/EX7.2/Ex7_2.sce b/3831/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..b27fff3da --- /dev/null +++ b/3831/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,17 @@ +// Example 7_2
+clc;funcprot(0);
+// Given data
+T_L=10;// °C
+W_E=5.00;// MW
+W_P=100;// kW
+Q_L=8.00;// MW
+
+// Solution
+// (a)
+Q_H=abs(-Q_L)+(W_E-abs(-W_P/10^3));// MW
+n_T=((W_E-abs(-W_P/10^3))/Q_H);// The actual thermal efficiency of the power plant
+printf('\nThe actual thermal efficiency of the power plant,n_T=%2.1f percentage',n_T*100);
+// (b)
+T_H=(T_L+273.15)/(1-n_T);// K
+T_H=T_H-273.15;// °C
+printf('\nThe equivalent heat source temperature,T_H=%3.0f°C',T_H);
|