blob: 3d1aaae3e1d4bfb84d9231a55043bea0e4ca4d19 (
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
|
clc;clear;
//Example 7.3
//given data
m=5;
P1=140;
T1=20;
P2=100;
//from refrigerant-134a data
//at P1 and T1
s1=1.0624;
v1=0.16544;
//at P2
v2=v1;
vf=0.0007529;
vg=0.19254;
sf=0.07188;
sfg=0.87995;
//calculations
// vf < v2 <vg
x2=(v2-vf)/(vg-vf);
s2=sf+x2*sfg;
dS=m*(s2-s1);
disp(dS,'entropy change in the process in kJ/k')
|
