10 const double GasConstant = 8314.3;
12 class RedlichKwong :
public Substance
18 setParameters(1.0, 1.0, 1.0);
19 m_name =
"Redlich-Kwong";
23 void setParameters(
double Tc,
double Pc,
double MolWt) {
29 m_a = 0.42748*GasConstant*GasConstant*m_tcrit*m_tcrit*sqrt(m_tcrit)/m_pcrit;
30 m_b = 0.08664*GasConstant*m_tcrit/m_pcrit;
50 return 0.3592725*GasConstant*T/(m_mw*m_pcrit);
78 double m_tcrit, m_pcrit, m_mw, m_a, m_b;