github/CoolProp
1
1
Fork 0
mirror of https://github.com/CoolProp/CoolProp.git synced 2026-02-08 21:05:14 -05:00
Code Issues Packages Projects Releases Wiki Activity

All fluid specific transport property correlations implemented - a few tests fail still, need to figure out why

Browse Source 
Signed-off-by: Ian Bell <ian.h.bell@gmail.com>
This commit is contained in:
Ian Bell
2014-05-27 18:30:30 +02:00
parent bb4035467e
commit d741df4e2d
13 changed files with 493 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/AbstractState.cpp
View File

@@ -182,6 +182,14 @@ double AbstractState::keyed_output(int key)
return umolar();
case iUmass:
return umolar()/molar_mass();
case iCvmolar:
return cvmolar();
case iCvmass:
return cvmolar()/molar_mass();
case iCpmolar:
return cpmolar();
case iCpmass:
return cpmolar()/molar_mass();
case imolar_mass:
return molar_mass();
case iT_reducing:

6
src/Backends/Helmholtz/Fluids/FluidLibrary.h
View File

@@ -583,6 +583,9 @@ protected:
else if (!target.compare("Ammonia")){
fluid.transport.conductivity_critical.type = CoolProp::ConductivityCriticalVariables::CONDUCTIVITY_CRITICAL_AMMONIA; return;
}
else if (!target.compare("None")){
fluid.transport.conductivity_critical.type = CoolProp::ConductivityCriticalVariables::CONDUCTIVITY_CRITICAL_NONE; return;
}
else{
throw ValueError(format("critical conductivity term [%s] is not understood for fluid %s",target.c_str(), fluid.name.c_str()));
}
@@ -619,6 +622,9 @@ protected:
else if (!target.compare("R23")){
fluid.transport.hardcoded_conductivity = CoolProp::TransportPropertyData::CONDUCTIVITY_HARDCODED_R23; return;
}
else if (!target.compare("Helium")){
fluid.transport.hardcoded_conductivity = CoolProp::TransportPropertyData::CONDUCTIVITY_HARDCODED_HELIUM; return;
}
else{
throw ValueError(format("hardcoded residual conductivity term [%s] is not understood for fluid %s",target.c_str(), fluid.name.c_str()));
}

4
src/Backends/Helmholtz/HelmholtzEOSMixtureBackend.cpp
View File

@@ -223,6 +223,8 @@ long double HelmholtzEOSMixtureBackend::calc_conductivity(void)
return TransportRoutines::conductivity_hardcoded_water(*this);
case CoolProp::TransportPropertyData::CONDUCTIVITY_HARDCODED_R23:
return TransportRoutines::conductivity_hardcoded_R23(*this);
case CoolProp::TransportPropertyData::CONDUCTIVITY_HARDCODED_HELIUM:
return TransportRoutines::conductivity_hardcoded_helium(*this);
default:
throw ValueError(format("hardcoded viscosity type [%d] is invalid for fluid %s", components[0]->transport.hardcoded_conductivity, name().c_str()));
}
@@ -266,6 +268,8 @@ long double HelmholtzEOSMixtureBackend::calc_conductivity(void)
lambda_critical = TransportRoutines::conductivity_critical_hardcoded_R123(*this); break;
case ConductivityCriticalVariables::CONDUCTIVITY_CRITICAL_AMMONIA:
lambda_critical = TransportRoutines::conductivity_critical_hardcoded_ammonia(*this); break;
case ConductivityCriticalVariables::CONDUCTIVITY_CRITICAL_NONE:
lambda_critical = 0.0; break;
default:
throw ValueError(format("critical conductivity type [%d] is invalid for fluid %s", components[0]->transport.viscosity_dilute.type, name().c_str()));
}

69
src/Backends/Helmholtz/TransportRoutines.cpp
View File

@@ -744,4 +744,73 @@ long double TransportRoutines::conductivity_critical_hardcoded_ammonia(Helmholtz
return DELTA_lambda;
}
long double TransportRoutines::conductivity_hardcoded_helium(HelmholtzEOSMixtureBackend &HEOS){
/*
What an incredibly annoying formulation! Implied coefficients?? Not cool.
*/
double rhoc = 68.0, lambda_e, lambda_c, T = HEOS.T(), rho = HEOS.keyed_output(CoolProp::iDmass);
double summer = 3.739232544/T-2.620316969e1/T/T+5.982252246e1/T/T/T-4.926397634e1/T/T/T/T;
double lambda_0 = 2.7870034e-3*pow(T, 7.034007057e-1)*exp(summer);
double c[]={ 1.862970530e-4,
-7.275964435e-7,
-1.427549651e-4,
3.290833592e-5,
-5.213335363e-8,
4.492659933e-8,
-5.924416513e-9,
7.087321137e-6,
-6.013335678e-6,
8.067145814e-7,
3.995125013e-7};
// Equation 17
lambda_e = (c[0]+c[1]*T+c[2]*pow(T,1/3.0)+c[3]*pow(T,2.0/3.0))*rho
+(c[4]+c[5]*pow(T,1.0/3.0)+c[6]*pow(T,2.0/3.0))*rho*rho*rho
+(c[7]+c[8]*pow(T,1.0/3.0)+c[9]*pow(T,2.0/3.0)+c[10]/T)*rho*rho*log(rho/rhoc);
// Critical component
lambda_c = 0.0;
if (3.5 < T & T < 12)
{
double x0 = 0.392, E1 = 2.8461, E2 = 0.27156, beta = 0.3554, gamma = 1.1743, delta = 4.304, rhoc_crit = 69.158,
Tc = 5.18992, pc = 2.2746e5, R = 4.633e-10, m = 6.6455255e-27, k = 1.38066e-23, pi = M_PI;
double DeltaT = fabs(1-T/Tc), DeltaRho = fabs(1-rho/rhoc_crit);
double eta = HEOS.viscosity(); // [Pa-s]
double K_T = HEOS.isothermal_compressibility(), K_Tprime, K_Tbar;
double dpdT = HEOS.first_partial_deriv(CoolProp::iP, CoolProp::iT, CoolProp::iDmolar);
double W = pow(DeltaT/0.2,2) + pow(DeltaRho/0.25,2);
if (W > 1)
{
K_Tbar = K_T;
}
else
{
double x = pow(DeltaT/DeltaRho,1/beta);
double h = E1*(1 + x/x0)*pow(1 + E2*pow(1 + x/x0, 2/beta), (gamma-1)/(2*beta));
/**
dh/dx derived using sympy:
E1,x,x0,E2,beta,gamma = symbols('E1,x,x0,E2,beta,gamma')
h = E1*(1 + x/x0)*pow(1 + E2*pow(1 + x/x0, 2/beta), (gamma-1)/(2*beta))
ccode(simplify(diff(h,x)))
*/
double dhdx = E1*(E2*pow((x + x0)/x0, 2/beta)*(gamma - 1)*pow(E2*pow((x + x0)/x0, 2/beta) + 1, (1.0/2.0)*(gamma - 1)/beta) + pow(beta, 2)*pow(E2*pow((x + x0)/x0, 2/beta) + 1, (1.0/2.0)*(2*beta + gamma - 1)/beta))/(pow(beta, 2)*x0*(E2*pow((x + x0)/x0, 2/beta) + 1));
// Right-hand-side of Equation 9
double RHS = pow(DeltaRho,delta-1)*(delta*h-x/beta*dhdx);
K_Tprime = 1/(RHS*pow(rho/rhoc_crit,2)*pc);
K_Tbar = W*K_T + (1-W)*K_Tprime;
}
double c1 = 1/(6*pi*R);
double c2 = sqrt(m*k);
double c3 = c1*c2;
lambda_c = sqrt(m*K_Tbar*k*pow(T,3)/rho)/(6*pi*eta*R)*pow(dpdT,2)*exp(-18.66*pow(DeltaT,2)-4.25*pow(DeltaRho,4));
}
return lambda_0+lambda_e+lambda_c;
}
}; /* namespace CoolProp */

1
src/Backends/Helmholtz/TransportRoutines.h
View File

@@ -168,6 +168,7 @@ public:
static long double conductivity_hardcoded_water(HelmholtzEOSMixtureBackend &HEOS);
static long double conductivity_hardcoded_R23(HelmholtzEOSMixtureBackend &HEOS);
static long double conductivity_hardcoded_helium(HelmholtzEOSMixtureBackend &HEOS);
static long double conductivity_critical_hardcoded_ammonia(HelmholtzEOSMixtureBackend &HEOS);

29
src/Tests/CoolProp-Tests.cpp
View File

@@ -411,9 +411,38 @@ vel("R23", "T", 180, "Dmolar", 21097, "L", 143.19e-3, 1e-4),
vel("R23", "T", 420, "Dmolar", 7564, "L", 50.19e-3, 1e-4),
vel("R23", "T", 370, "Dmolar", 32.62, "L", 17.455e-3, 1e-4),
// From REFPROP 9.1 since no sample data provided in Tufeu
vel("Ammonia", "T", 310, "Dmolar", 34320, "L", 0.45223303481784971, 1e-4),
vel("Ammonia", "T", 395, "Q", 0, "L", 0.2264480769301, 1e-4),
// From Hands, Cryogenics, 1981
vel("Helium", "T", 800, "P", 1e5, "L", 0.3085, 1e-4),
vel("Helium", "T", 300, "P", 1e5, "L", 0.1560, 1e-4),
vel("Helium", "T", 20, "P", 1e5, "L", 0.0262, 1e-4),
vel("Helium", "T", 8, "P", 1e5, "L", 0.0145, 1e-4),
vel("Helium", "T", 4, "P", 20e5, "L", 0.0255, 1e-4),
vel("Helium", "T", 8, "P", 20e5, "L", 0.0308, 1e-4),
vel("Helium", "T", 20, "P", 20e5, "L", 0.0328, 1e-4),
vel("Helium", "T", 4, "P", 100e5, "L", 0.0385, 1e-4),
vel("Helium", "T", 8, "P", 100e5, "L", 0.0566, 1e-4),
vel("Helium", "T", 20, "P", 100e5, "L", 0.0594, 1e-4),
vel("Helium", "T", 4, "P", 1e5, "L", 0.0186, 1e-4),
vel("Helium", "T", 4, "P", 2e5, "L", 0.0194, 1e-4),
vel("Helium", "T", 5.180, "P", 2.3e5, "L", 0.0195, 1e-4),
vel("Helium", "T", 5.2, "P", 2.3e5, "L", 0.0202, 1e-4),
vel("Helium", "T", 5.230, "P", 2.3e5, "L", 0.0181, 1e-4),
vel("Helium", "T", 5.260, "P", 2.3e5, "L", 0.0159, 1e-4),
vel("Helium", "T", 5.3, "P", 2.3e5, "L", 0.0149, 1e-4),
// Geller, IJT, 2001 - based on experimental data, no validation data provided
vel("R404A", "T", 253.03, "P", 0.101e6, "L", 0.00991, 0.03),
vel("R404A", "T", 334.38, "P", 2.176e6, "L", 19.93e-3, 0.03),
vel("R407C", "T", 253.45, "P", 0.101e6, "L", 0.00970, 0.03),
vel("R407C", "T", 314.39, "P", 0.458e6, "L", 14.87e-3, 0.03),
vel("R410A", "T", 260.32, "P", 0.101e6, "L", 0.01043, 0.03),
vel("R410A", "T", 332.09, "P", 3.690e6, "L", 22.76e-3, 0.03),
vel("R507A", "T", 254.85, "P", 0.101e6, "L", 0.01007, 0.03),
vel("R507A", "T", 333.18, "P", 2.644e6, "L", 21.31e-3, 0.03),
};
TEST_CASE_METHOD(TransportValidationFixture, "Compare thermal conductivities against published data", "[conductivity]")