blob: 21e0a708749f88e3300baa2cd7f95f298d1205a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
clear;
clc;
disp('Example 7.3');
// aim : To determine
// the specific entropy of steam
// Given values
P = 1.5;//pressure,[MN/m^2]
T = 273+300;//temperature,[K]
// solution
// (a)
// from steam table
cpl = 4.187;// [kJ/kg K]
Tf = 471.3;// [K]
hfg = 1946;// [kJ/kg]
cpv = 2.093;// [kJ/kg K]
// usung equation [2]
s = cpl*log(Tf/273.15)+hfg/Tf+cpv*log(T/Tf);// [kJ/kg K]
mprintf('\n (a) The specific entropy of steam is = %f kJ/kg K\n',s);
// (b)
// from steam tables
s = 6.919;// [kJ/kg K]
mprintf('\n (b) The accurate value of specific entropy from steam table is = %f kJ/kg K\n',s);
// End
|
