summaryrefslogtreecommitdiff
path: root/3831/CH9/EX9.7/Ex9_7.sce
blob: 91cfa862fedaa1145cd7e7f424ced2d2ee938f23 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// Example 9_7
clc;funcprot(0);
// Given data
mdot=0.500;// kg/s
p_1=8.00;// MPa
T_1=300;// °C
T_2=100;// °C
x_2=1.00;// The quality of steam at station 2
T_b=20.0;// °C
h_1=2785.0;// kJ/kg
h_2=2676.0;// kJ/kg
s_1=5.7914;// kJ/kg.K
s_2=7.3557;// kJ/kg.K

// Calculation
W_max=mdot*[(h_1-((T_b+273.15)*s_1))-(h_2-((T_b+273.15)*s_2))];// kW
printf("\nThe maximum (reversible) power,W_max=%3.0f kW",W_max);