blob: 7b5aad6a64bb0b9e8a2844e90f30c4e56d9d717d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
// Example 6_8
clc;funcprot(0);
// Given data
m=2;// The mass of steam in kg
T=400;// °C
P=600;// kPa
T_0=25+273;// K
// Calculation
// From steam tables
s_1=7.7086;// kJ/kg.K
s_2=1.9316;// kJ/kg.K
dS_sys=m*(s_2-s_1);// kJ/K
h_1=3270.2;// kJ/kg
h_2=670.6;// kJ/kg
Q=m*(h_1-h_2);// The heat transfer in kJ
dS_surr=Q/T_0;// kJ/K
dS_univ=dS_surr+dS_sys;// kJ/K
printf("\nThe net entropy change of the process,dS_univ=%1.2f kJ/K",dS_univ);
|
