blob: efee2a8cb74a8250b60bbee4247e64cf1b47fcdb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
clc;clear;
//Example 7.4
//given data
m=3;
P1=20;
T1=70+460;//in R
Qin=3450;
//from Table A-6E
//at P1 and T1
s1=0.07459;
h1=38.08;
//calculations
//Ein - Eout = dEsystem
//Qin = m*(h2 - h1)
h2=Qin/m+h1;
//from Table A-6E
//At P2 and h2
s2=1.7761;
dS=m*(s2-s1);
disp(dS,'entropy change in Btu/R');
|
