blob: 5d403b83a408fd4bae42813389dd387ac27440d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc
Tc=405.5 //temperature in kelvin
Pc=112.77 //pressure in bar
T=473 //temperature in kelvin
Tr=T/Tc //reduced temperature
mprintf("Tr=%f\n",Tr)//ans vary due to roundoff error
V=0.1
n=10^3
R=8.314
vr=Pc*10^5*(V/n)/(R*Tc)//pseudo-reduced volume using compressibility chart
mprintf("vr=%f\n",vr)//ans may vary due to roundoff error
Pr=1.9
P=Pr*Pc//equation for reduced pressure
mprintf("P=%fMPa",P/10)//ans vary due to roundoff error
|
