Redlich- Kwong
Equation of State

Parameters

R = 0.08315 ;

a = 15.51 ;

b = 0.02674 ;

Equation of state

prk[V_, T_] := (R  T)/(v - b) - a/T^(1/2) 1/(V (V + b))

Plot[prk[v, 300], {v, 0.1, 50}, PlotRange→ {0, 11}, Frame→True]

[Graphics:../HTMLFiles/MATH5_TUT_1_735.gif]

-Graphics -

Find the volume for two different pressures

Solve[prk[v, 300] == 10, v]

Solve[prk[v, 300] == 1, v]

{{v→0.00425704 - 0.030742 }, {v→0.00425704 + 0.030742 }, {v→2.48599}}

{{v→0.00454697 - 0.0306526 }, {v→0.00454697 + 0.0306526 }, {v→24.9359}}

Created by Mathematica  (October 29, 2006) Valid XHTML 1.1!