blob: 6a03cc8708f9b791b67d8ef37ae472e3e8511d03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
// Example 7_7
clc;funcprot(0);
// Given data
mdot=3.00;// kg/min
x_in=0;// The quality of steam at inlet
x_out=75;// The quality of steam at outlet
T_in=100;// °C
h_fg=2257;// kJ/kg
// Solution
Qdot=mdot*(x_out/100)*h_fg;// kJ/min
S_T_Q=Qdot/(T_in+273.15);// kJ/min.K
printf('\nThe heat transport rate of entropy for this process,(S_T)_Q=%2.1f kJ/min.K',S_T_Q);
|
