10 const double GasConstant = 8314.3;
12 class RedlichKwong :
public Substance
17 RedlichKwong() : 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);
59 return (
char*) m_name.c_str() ;
62 return (
char*) m_formula.c_str() ;
84 double m_tcrit, m_pcrit, m_mw, m_a, m_b;