DGrxn GibbsEnergyF_ethanol_Vapor12(T,p0)-GibbsEnergyF_water_Vapor111(T,p0)-GibbsEnergyF_ethene_Vapor15(T,p0) "Gibbs energy of reaction at T"
KTr exp(-DGrxn/(R*T)) "Equilibrium constant at T"
DHrT EnthalpyF_ethanol_Vapor11(T,p0)-EnthalpyF_water_Vapor110(T,p0)-EnthalpyF_ethene_Vapor14(T,p0) "Heat of reaction at T"
DGrT0 GibbsEnergyF_ethanol_Vapor12(T0,p0)-GibbsEnergyF_water_Vapor111(T0,p0)-GibbsEnergyF_ethene_Vapor15(T0,p0) "Gibbs energy of reaction at T0"
DHrT0 EnthalpyF_ethanol_Vapor11(T0,p0)-EnthalpyF_water_Vapor110(T0,p0)-EnthalpyF_ethene_Vapor14(T0,p0) "Heat of reaction at T0"
KT0 exp(-DGrT0/(R*T0)) "Equilibrium constant at T0"
KTa KT0*exp(-DHrT0/R*(1/T-1/T0)) "Approximate equilibrium constant at T"
PKT if(Hcon<1,KTa*p/p0,KTr*p/p0) "P (bar) times KT"
KT if(Hcon<1,KTa,KTr) "Equilibrium constant used"
DHrxn if(Hcon<1,DHrT0,DHrT) "Heat of reaction used"
MPHI FugacityCoefficientMix_C2H5OH(T,p,re.m_C2H4,re.m_H2O,re.m_C2H5OH,re.m_N2)/(FugacityCoefficientMix_C2H4(T,p,re.m_C2H4,re.m_H2O,re.m_C2H5OH,re.m_N2)*FugacityCoefficientMix_H2O(T,p,re.m_C2H4,re.m_H2O,re.m_C2H5OH,re.m_N2)) "Mixture fugacity coefficient product"
ISPHI FugacityCoefficientPure_C2H5OH(T,p)/(FugacityCoefficientPure_C2H4(T,p)*FugacityCoefficientPure_H2O(T,p)) "Ideal solution fugacity coefficient product"
PHI if(PHIcon>1,MPHI,if(PHIcon<1,1,ISPHI)) "Fugacity coefficient product"