blob: 0d949a30aa472dd8e9c7d74786400cf2c7d86e2a (
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
31
32
|
clc;clear;
//Example 3.12
//given values
v=0.51431;
T=600;
//from Table A-1E
R=0.5956;
Pcr=3200;
Tcr=1164.8;
//calculation
//Part A
//from Table A-6E
P=1000;//in psia
disp(P,'from the steam tables in psia');
//Part B
T=1060;//converted into R from F
P=R*T/v;
disp(P,'from the ideal-gas equation in psia');
//Part C
//calculating the pseudo-reduced specific volume and the reduced temperature
Vr=v/(R*Tcr/Pcr);
Tr=T/Tcr;
//from the compressibility chart
Pr=0.33;
P=Pr*Pcr;
disp(P,'from the generalized compressibility chart. in psia')
|
