research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Dave Goodwin 2005-09-30 16:38:09 +00:00
parent c32ef71f0e
commit a2a33f1cac
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ext/tpx/CarbonDioxide.cpp
View file

@ -235,11 +235,12 @@ double CarbonDioxide::up() {
// Equation C-6 integrated
sum += G[0]*log(T/To);
for (int i=1; i<=5; i++)
int i;
for (i=1; i<=5; i++)
sum += G[i]*(pow(T,i) - pow(To,i))/double(i);
for (int i=0; i<=6; i++) {
for (i=0; i<=6; i++) {
sum += I(i,egrho, Gamma) *
( C(i, Tinverse, T2inverse, T3inverse, T4inverse) - T*Cprime(i,T2inverse, T3inverse, T4inverse) );
}

6
ext/tpx/Heptane.cpp
View file

@ -192,13 +192,13 @@ double Heptane::up() {
double egrho = exp(-Gamma*Rho*Rho);
double sum = 0.0;
for (int i=1; i<=5; i++)
int i;
for (i=1; i<=5; i++)
sum += G[i]*(pow(T,i) - pow(To,i))/double(i);
sum += G[0]*log(T/To);
for (int i=0; i<=6; i++) {
for (i=0; i<=6; i++) {
sum += (C(i, Tinverse, T2inverse, T3inverse, T4inverse) - T*Cprime(i,T2inverse, T3inverse, T4inverse))*I(i,egrho, Gamma);
}