04cac2b277
Introduce a default constructor for PDSS objects, and avoid passing in unnecesary arguments to initialization functions.
152 lines
4.5 KiB
C++
152 lines
4.5 KiB
C++
#include "cantera/thermo/PDSS_Water.h"
|
|
#include "cantera/base/ctexceptions.h"
|
|
#include "cantera/base/global.h"
|
|
#include <iostream>
|
|
#include <cstdio>
|
|
|
|
using namespace std;
|
|
using namespace Cantera;
|
|
|
|
double tvalue(double val, double atol = 1.0E-9)
|
|
{
|
|
double rval = val;
|
|
if (fabs(val) < atol) {
|
|
rval = 0.0;
|
|
}
|
|
return rval;
|
|
}
|
|
|
|
int main()
|
|
{
|
|
#if defined(_MSC_VER) && _MSC_VER < 1900
|
|
_set_output_format(_TWO_DIGIT_EXPONENT);
|
|
#endif
|
|
double pres;
|
|
try {
|
|
Cantera::PDSS_Water* w = new PDSS_Water();
|
|
|
|
/*
|
|
* Print out the triple point conditions
|
|
*/
|
|
double temp = 273.16;
|
|
pres = w->satPressure(temp);
|
|
printf("psat(%g) = %g\n", temp, pres);
|
|
double presLow = 1.0E-2;
|
|
temp = 298.15;
|
|
double oneBar = 1.0E5;
|
|
|
|
printf("Comparisons to NIST: (see http://webbook.nist.gov):\n\n");
|
|
w->m_allowGasPhase = true;
|
|
w->setDensity(1.0E-8);
|
|
w->setState_TP(temp, presLow);
|
|
double h = w->enthalpy_mole();
|
|
printf("H0(298.15) = %g J/kmol\n", h);
|
|
double h298 = h;
|
|
|
|
double s = w->entropy_mole();
|
|
s -= GasConstant * log(oneBar/presLow);
|
|
printf("S0(298.15) = %g J/kmolK\n", s);
|
|
|
|
|
|
double T[20];
|
|
T[0] = 298.15;
|
|
T[1] = 500.;
|
|
T[2] = 600.;
|
|
T[3] = 1000.;
|
|
|
|
double Cp0, delh0, delg0, g;
|
|
|
|
printf("\nIdeal Gas Standard State:\n");
|
|
printf(" T Cp0 S0 "
|
|
" -(G0-H298)/T H0-H298\n");
|
|
printf(" (K) (J/molK) (J/molK) "
|
|
" (J/molK) (kJ/mol)\n");
|
|
for (int i = 0; i < 4; i++) {
|
|
temp = T[i];
|
|
w->setState_TP(temp, presLow);
|
|
h = w->enthalpy_mole();
|
|
delh0 = tvalue(h - h298, 1.0E-6);
|
|
g = w->gibbs_mole();
|
|
delg0 = (g - h298)/temp + GasConstant * log(oneBar/presLow);
|
|
Cp0 = w->cp_mole();
|
|
s = w->entropy_mole();
|
|
s -= GasConstant * log(oneBar/presLow);
|
|
printf("%10g %10g %13g %13g %13g\n", temp, Cp0*1.0E-3, s*1.0E-3,
|
|
-delg0*1.0E-3, delh0*1.0E-6);
|
|
}
|
|
printf("\n\n");
|
|
|
|
temp = 298.15;
|
|
w->setDensity(1000.);
|
|
w->setState_TP(temp, oneBar);
|
|
h = w->enthalpy_mole();
|
|
printf("H_liq(298.15, onebar) = %g J/kmol\n", h);
|
|
double h298l = h;
|
|
s = w->entropy_mole();
|
|
printf("S_liq(298.15, onebar) = %g J/kmolK\n", s);
|
|
|
|
|
|
T[0] = 273.19;
|
|
T[1] = 298.15;
|
|
T[2] = 300.;
|
|
T[3] = 373.15;
|
|
T[4] = 400.;
|
|
T[5] = 500.;
|
|
printf("\nLiquid 1bar or psat Standard State\n");
|
|
printf(" T press psat Cp0 S0 "
|
|
" -(G0-H298)/T H0-H298\n");
|
|
printf(" (K) (bar) (bar) (J/molK) (J/molK)"
|
|
" (J/molK) (kJ/mol)\n");
|
|
|
|
for (int i = 0; i < 6; i++) {
|
|
temp = T[i];
|
|
double psat = w->satPressure(temp);
|
|
double press = oneBar;
|
|
if (psat > press) {
|
|
press = psat*1.002;
|
|
}
|
|
w->setState_TP(temp, press);
|
|
h = w->enthalpy_mole();
|
|
delh0 = tvalue(h - h298l, 1.0E-4);
|
|
g = w->gibbs_mole();
|
|
delg0 = (g - h298l)/temp;
|
|
Cp0 = w->cp_mole();
|
|
s = w->entropy_mole();
|
|
printf("%10g %10g %12g %13.4f %13.4f %13.4f %13.4f\n", temp, press*1.0E-5,
|
|
psat*1.0E-5,
|
|
Cp0*1.0E-3, s*1.0E-3,
|
|
-delg0*1.0E-3, delh0*1.0E-6);
|
|
}
|
|
|
|
printf("\nLiquid Densities:\n");
|
|
printf(" T press psat Density molarVol "
|
|
"\n");
|
|
printf(" (K) (bar) (bar) (kg/m3) (m3/kmol)"
|
|
"\n");
|
|
for (int i = 0; i < 6; i++) {
|
|
temp = T[i];
|
|
double psat = w->satPressure(temp);
|
|
double press = oneBar;
|
|
if (psat > press) {
|
|
press = psat*1.002;
|
|
}
|
|
w->setState_TP(temp, press);
|
|
double d = w->density();
|
|
double mw = w->molecularWeight();
|
|
double vbar = mw/d;
|
|
printf("%10g %10g %12g %13.4f %13.4f\n", temp, press*1.0E-5,
|
|
psat*1.0E-5, d, vbar);
|
|
|
|
}
|
|
|
|
|
|
delete w;
|
|
} catch (CanteraError& err) {
|
|
std::cout << err.what() << std::endl;
|
|
Cantera::appdelete();
|
|
return -1;
|
|
}
|
|
|
|
|
|
return 0;
|
|
}
|