github/CoolProp
1
1
Fork 0
mirror of https://github.com/CoolProp/CoolProp.git synced 2026-01-23 04:47:57 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fixed bug in Helmholtz energy Lemon2005 term (was using integer powers rather than the correct power)

Browse Source 
Signed-off-by: Ian Bell <ian.h.bell@gmail.com>
This commit is contained in:
Ian Bell
2014-06-03 14:32:02 +02:00
parent 17bffeb91f
commit 6e7cf60aee
1 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/Helmholtz.cpp
View File

@@ -680,10 +680,10 @@ long double ResidualHelmholtzLemmon2005::base(const long double &tau, const long
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0)
s[i] = ni*exp(ti*log_tau+di*log_delta-pow(delta, li)-pow(tau, mi));
s[i] = ni*exp(ti*log_tau+di*log_delta-pow(delta, li)-pow(tau, md));
else if (li != 0 && mi == 0)
s[i] = ni*exp(ti*log_tau+di*log_delta-pow(delta, li));
else
@@ -698,11 +698,11 @@ long double ResidualHelmholtzLemmon2005::dDelta(const long double &tau, const lo
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta,li);
long double pow_tau_mi = pow(tau,mi);
long double pow_tau_mi = pow(tau,md);
s[i] = ni*(di-li*pow_delta_li)*exp(ti*log_tau+(di-1)*log_delta-pow_delta_li-pow_tau_mi);
}
else if (li>0 && mi == 0){
@@ -721,10 +721,10 @@ long double ResidualHelmholtzLemmon2005::dTau(const long double &tau, const long
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_tau_mi = pow(tau, mi);
long double pow_tau_mi = pow(tau, md);
s[i] = ni*(ti-mi*pow_tau_mi)*exp((ti-1)*log_tau+di*log_delta-pow(delta,li)-pow_tau_mi);
}
else if (li != 0 && mi == 0)
@@ -741,11 +741,11 @@ long double ResidualHelmholtzLemmon2005::dDelta2(const long double &tau, const l
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta, li);
long double pow_tau_mi = pow(tau, mi);
long double pow_tau_mi = pow(tau, md);
s[i] = ni*((di-li*pow_delta_li)*(di-1.0-li*pow_delta_li) - li*li*pow_delta_li)*exp(ti*log_tau+(di-2)*log_delta-pow_delta_li-pow_tau_mi);
}
else if (li != 0 && mi == 0){
@@ -764,11 +764,11 @@ long double ResidualHelmholtzLemmon2005::dDelta_dTau(const long double &tau, con
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta, li);
long double pow_tau_mi = pow(tau, mi);
long double pow_tau_mi = pow(tau, md);
s[i] = ni*(di-li*pow_delta_li)*(ti-mi*pow_tau_mi)*exp((ti-1)*log_tau+(di-1)*log_delta-pow_delta_li-pow_tau_mi);
}
else if (li != 0 && mi == 0){
@@ -787,10 +787,10 @@ long double ResidualHelmholtzLemmon2005::dTau2(const long double &tau, const lon
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_tau_mi = pow(tau, mi);
long double pow_tau_mi = pow(tau, md);
long double bracket = (ti-mi*pow_tau_mi)*(ti-1-mi*pow_tau_mi)-mi*mi*pow_tau_mi;
s[i] = ni*bracket*exp((ti-2)*log_tau+di*log_delta-pow(delta,li)-pow_tau_mi);
}
@@ -808,11 +808,11 @@ long double ResidualHelmholtzLemmon2005::dDelta3(const long double &tau, const l
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta, li);
long double pow_tau_mi = pow(tau, mi);
long double pow_tau_mi = pow(tau, md);
long double bracket = (di*(di-1)*(di-2)+pow_delta_li*(-2*li+6*di*li-3*di*di*li-3*di*li*li+3*li*li-li*li*li)+pow_delta_li*pow_delta_li*(3*di*li*li-3*li*li+3*li*li*li)-li*li*li*pow_delta_li*pow_delta_li*pow_delta_li);
s[i] = ni*bracket*exp(ti*log_tau+(di-3)*log_delta-pow_delta_li-pow_tau_mi);
}
@@ -834,11 +834,11 @@ long double ResidualHelmholtzLemmon2005::dDelta2_dTau(const long double &tau, co
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta,li);
long double pow_tau_mi = pow(tau,mi);
long double pow_tau_mi = pow(tau,md);
long double bracket = (ti-mi*pow_tau_mi)*(((di-li*pow_delta_li))*(di-1-li*pow_delta_li)-li*li*pow_delta_li);
s[i] = ni*bracket*exp((ti-1)*log_tau+(di-2)*log_delta-pow_delta_li-pow_tau_mi);
}
@@ -859,11 +859,11 @@ long double ResidualHelmholtzLemmon2005::dDelta_dTau2(const long double &tau, co
for (std::size_t i=0; i<N; ++i)
{
ResidualHelmholtzLemmon2005Element &el = elements[i];
long double ni = el.n, ti = el.t, di = el.d;
long double ni = el.n, ti = el.t, di = el.d, md = el.md;
int li = el.l, mi = el.m;
if (li != 0 && mi != 0){
long double pow_delta_li = pow(delta,li);
long double pow_tau_mi = pow(tau,mi);
long double pow_tau_mi = pow(tau,md);
// delta derivative of second tau derivative
long double bracket = ((ti-mi*pow_tau_mi)*(ti-1-mi*pow_tau_mi)-mi*mi*pow_tau_mi)*(di-li*pow_delta_li);
s[i] = ni*bracket*exp((ti-2)*log_tau+(di-1)*log_delta-pow_delta_li-pow_tau_mi);