Removed redundant / vestigial code from the Blasius example
This commit is contained in:
Ray Speth
parent
3baa0eae94
commit
d3c0411f3e
4 changed files with 0 additions and 1494 deletions
|
|
@ -1,175 +0,0 @@
|
|||
/// @file AxiStagnBVP.cpp
|
||||
|
||||
#include "cantera/Cantera.h"
|
||||
#include "AxiStagnBVP.h"
|
||||
|
||||
AxiStagnBVP::AxiStagnBVP(int nsp, int np, double L) :
|
||||
BVP::BoundaryValueProblem(nsp+4,
|
||||
np, 0.0, L)
|
||||
{
|
||||
|
||||
// specify the component bounds, error tolerances, and names.
|
||||
BVP::Component u;
|
||||
u.lower = -200.0;
|
||||
u.upper = 200.0;
|
||||
u.rtol = 1.0e-8;
|
||||
u.atol = 1.0e-15;
|
||||
u.name = "u";
|
||||
setComponent(0, u); // the axial velocity will be component 0
|
||||
|
||||
BVP::Component V;
|
||||
V.lower = -1.0e8;
|
||||
V.upper = 1.0e8;
|
||||
V.rtol = 1.0e-8;
|
||||
V.atol = 1.0e-15;
|
||||
V.name = "V";
|
||||
setComponent(1, V); // the radial velocity will be component 1
|
||||
|
||||
BVP::Component T;
|
||||
T.lower = 200.0;
|
||||
T.upper = 1.0e9;
|
||||
T.rtol = 1.0e-8;
|
||||
T.atol = 1.0e-15;
|
||||
T.name = "T";
|
||||
setComponent(2, T); // the temperature will be component 2
|
||||
|
||||
BVP::Component lambda;
|
||||
lambda.lower = -1.0e20;
|
||||
lambda.upper = 1.0e20;
|
||||
lambda.rtol = 1.0e-8;
|
||||
lambda.atol = 1.0e-15;
|
||||
lambda.name = "Lambda";
|
||||
setComponent(3, lambda); // the pressure-gradient eigenvalue will be
|
||||
//component 3
|
||||
BVP::Component Y;
|
||||
Y.lower = -1.0e-5;
|
||||
Y.upper = 1.0e2;
|
||||
Y.rtol = 1.0e-8;
|
||||
Y.atol = 1.0e-15;
|
||||
for (k = 0; k < nsp; k++) {
|
||||
Y.name = thermo->speciesName(k);
|
||||
setComponent(k+4, Y);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// destructor
|
||||
AxiStagnBVP::~AxiStagnBVP() {}
|
||||
|
||||
|
||||
|
||||
// specify guesses for the initial values. These can be anything
|
||||
// that leads to a converged solution.
|
||||
doublereal AxiStagnBVP::initialValue(int n, int j)
|
||||
{
|
||||
switch (n) {
|
||||
case 0:
|
||||
return m_uin;
|
||||
case 1:
|
||||
return m_uin/m_L;
|
||||
case 2:
|
||||
return m_Tin;
|
||||
case 4:
|
||||
return 1.0;
|
||||
default:
|
||||
return 0.0;
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Set the gas object state to be consistent with the solution at
|
||||
* point j.
|
||||
*/
|
||||
void AxiStagnBVP::setGas(const doublereal* x,int j)
|
||||
{
|
||||
m_thermo->setTemperature(T(x,j));
|
||||
const doublereal* yy = x + m_nv*j + 4;
|
||||
m_thermo->setMassFractions_NoNorm(yy);
|
||||
m_thermo->setPressure(m_press);
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* Set the gas state to be consistent with the solution at the
|
||||
* midpoint between j and j + 1.
|
||||
*/
|
||||
void StFlow::setGasAtMidpoint(const doublereal* x,int j)
|
||||
{
|
||||
m_thermo->setTemperature(0.5*(T(x,j)+T(x,j+1)));
|
||||
const doublereal* yyj = x + m_nv*j + 4;
|
||||
const doublereal* yyjp = x + m_nv*(j+1) + 4;
|
||||
for (size_t k = 0; k < m_nsp; k++) {
|
||||
m_ybar[k] = 0.5*(yyj[k] + yyjp[k]);
|
||||
}
|
||||
m_thermo->setMassFractions_NoNorm(DATA_PTR(m_ybar));
|
||||
m_thermo->setPressure(m_press);
|
||||
}
|
||||
|
||||
|
||||
|
||||
// Specify the residual. This is where the ODE system and boundary
|
||||
// conditions are specified. The solver will attempt to find a solution
|
||||
// x so that this function returns 0 for all n and j.
|
||||
doublereal AxiStagnFlow::residual(doublereal* x, size_t n, size_t j)
|
||||
{
|
||||
|
||||
// if n = 0, return the residual for the continuity equation
|
||||
if (n == 0) {
|
||||
if (isRight(j)) {
|
||||
return -rho_u(x,j); // force u to zero at the right
|
||||
} else {
|
||||
return -(rho_u(x, j+1) - rho_u(x,j))/m_dz[j]
|
||||
-(density(j+1)*V(x,j+1) + density(j)*V(x,j));
|
||||
}
|
||||
}
|
||||
|
||||
else if (n == 1) {
|
||||
|
||||
// if n = 1, then return the residual for radial momentum
|
||||
if (isLeft(j)) {
|
||||
return V(x,j);
|
||||
} else if (isRight(j)) {
|
||||
return V(x,j); // force V to zero at the wall
|
||||
} else {
|
||||
return (shear(x,j) - lambda(x,j) - rho_u(x,j)*dVdz(x,j)
|
||||
- m_rho[j]*V(x,j)*V(x,j))/m_rho[j]
|
||||
- rdt*(V(x,j) - V_prev(j));
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
else if (n == 2) {
|
||||
if (isLeft(j)) {
|
||||
return T(x,j) - m_Tinlet;
|
||||
} else if (isRight(j)) {
|
||||
return T(x,j) - m_Tsurf;
|
||||
} else {
|
||||
setGas(x,j);
|
||||
|
||||
// heat release term
|
||||
const vector_fp& h_RT = m_thermo->enthalpy_RT_ref();
|
||||
const vector_fp& cp_R = m_thermo->cp_R_ref();
|
||||
|
||||
sum = 0.0;
|
||||
sum2 = 0.0;
|
||||
doublereal flxk;
|
||||
for (k = 0; k < m_nsp; k++) {
|
||||
flxk = 0.5*(m_flux(k,j-1) + m_flux(k,j));
|
||||
sum += wdot(k,j)*h_RT[k];
|
||||
sum2 += flxk*cp_R[k]/m_wt[k];
|
||||
}
|
||||
sum *= GasConstant * T(x,j);
|
||||
dtdzj = dTdz(x,j);
|
||||
sum2 *= GasConstant * dtdzj;
|
||||
|
||||
rsd = - m_cp[j]*rho_u(x,j)*dtdzj
|
||||
- divHeatFlux(x,j) - sum - sum2;
|
||||
rsd /= (m_rho[j]*m_cp[j]);
|
||||
|
||||
rsd -= rdt*(T(x,j) - T_prev(j));
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -1,141 +0,0 @@
|
|||
/// @file AxiStagnBVP.h
|
||||
|
||||
#include "cantera/Cantera.h"
|
||||
#include "BoundaryValueProblem.h"
|
||||
|
||||
|
||||
/**
|
||||
* This class solves
|
||||
*/
|
||||
class AxiStagnBVP : public BVP::BoundaryValueProblem
|
||||
{
|
||||
|
||||
public:
|
||||
|
||||
AxiStagnBVP(int nsp, int np, double L) : BVP::BoundaryValueProblem(nsp+4,
|
||||
np, 0.0, L) {
|
||||
|
||||
// specify the component bounds, error tolerances, and names.
|
||||
BVP::Component u;
|
||||
u.lower = -200.0;
|
||||
u.upper = 200.0;
|
||||
u.rtol = 1.0e-8;
|
||||
u.atol = 1.0e-15;
|
||||
u.name = "u";
|
||||
setComponent(0, u); // the axial velocity will be component 0
|
||||
|
||||
BVP::Component V;
|
||||
V.lower = -1.0e8;
|
||||
V.upper = 1.0e8;
|
||||
V.rtol = 1.0e-8;
|
||||
V.atol = 1.0e-15;
|
||||
V.name = "V";
|
||||
setComponent(1, V); // the radial velocity will be component 1
|
||||
|
||||
BVP::Component T;
|
||||
T.lower = 200.0;
|
||||
T.upper = 1.0e9;
|
||||
T.rtol = 1.0e-8;
|
||||
T.atol = 1.0e-15;
|
||||
T.name = "T";
|
||||
setComponent(2, T); // the temperature will be component 2
|
||||
|
||||
BVP::Component lambda;
|
||||
lambda.lower = -1.0e20;
|
||||
lambda.upper = 1.0e20;
|
||||
lambda.rtol = 1.0e-8;
|
||||
lambda.atol = 1.0e-15;
|
||||
lambda.name = "Lambda";
|
||||
setComponent(3, lambda); // the pressure-gradient eigenvalue will be
|
||||
//component 3
|
||||
BVP::Component Y;
|
||||
Y.lower = -1.0e-5;
|
||||
Y.upper = 1.0e2;
|
||||
Y.rtol = 1.0e-8;
|
||||
Y.atol = 1.0e-15;
|
||||
for (k = 0; k < nsp; k++) {
|
||||
Y.name = thermo->speciesName(k);
|
||||
setComponent(k+4, Y);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// destructor
|
||||
virtual ~AxiStagnBVP() {}
|
||||
|
||||
|
||||
// specify guesses for the initial values. These can be anything
|
||||
// that leads to a converged solution.
|
||||
doublereal AxiStagnBVP::initialValue(int n, int j) {
|
||||
switch (n) {
|
||||
case 0:
|
||||
return m;
|
||||
case 1:
|
||||
return 0.5*z(j);
|
||||
default:
|
||||
return 0.0;
|
||||
}
|
||||
}
|
||||
|
||||
// Specify the residual. This is where the ODE system and boundary
|
||||
// conditions are specified. The solver will attempt to find a solution
|
||||
// x so that this function returns 0 for all n and j.
|
||||
virtual doublereal residual(doublereal* x, size_t n, size_t j) {
|
||||
|
||||
// if n = 0, return the residual for the first ODE
|
||||
if (n == 0) {
|
||||
if (isLeft(j)) { // here we specify zeta(0) = 0
|
||||
return zeta(x,j);
|
||||
} else
|
||||
// this implements d(zeta)/dz = u
|
||||
{
|
||||
return (zeta(x,j) - zeta(x,j-1))/(z(j)-z(j-1)) - u(x,j);
|
||||
}
|
||||
}
|
||||
// if n = 1, then return the residual for the second ODE
|
||||
else {
|
||||
if (isLeft(j)) { // here we specify u(0) = 0
|
||||
return u(x,j);
|
||||
} else if (isRight(j)) { // and here we specify u(L) = 1
|
||||
return u(x,j) - 1.0;
|
||||
} else
|
||||
// this implements the 2nd ODE
|
||||
{
|
||||
return cdif2(x,1,j) + 0.5*zeta(x,j)*centralFirstDeriv(x,1,j);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
private:
|
||||
|
||||
// for convenience only. Note that the compiler will inline these.
|
||||
double zeta(double* x, int j) {
|
||||
return value(x,0,j);
|
||||
}
|
||||
double u(double* x, int j) {
|
||||
return value(x,1,j);
|
||||
}
|
||||
|
||||
};
|
||||
|
||||
|
||||
int main()
|
||||
{
|
||||
try {
|
||||
|
||||
// Specify a problem on (0,10), with an initial uniform grid of
|
||||
// 6 points.
|
||||
AxiStagnBVP eqs(6, 10.0);
|
||||
// Solve the equations, refining the grid as needed, and print lots of diagnostic output (loglevel = 4)
|
||||
eqs.solve(4);
|
||||
// write the solution to a CSV file.
|
||||
eqs.writeCSV();
|
||||
return 0;
|
||||
} catch (Cantera::CanteraError& err) {
|
||||
std::cerr << err.what() << std::endl;
|
||||
return -1;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -2,14 +2,3 @@ This example program solves the Blasius boundary value problem for the
|
|||
velocity profile of a laminar boundary layer over a flat plate. It
|
||||
uses class BoundaryValueProblem, which provides a simplified interface
|
||||
to the boundary value problem capabilities of Cantera.
|
||||
|
||||
To build this example, type "ctnew" to generate a demo c++ program and
|
||||
a makefile (demo.mak) that is correctly configured for your Cantera
|
||||
installation. It it is not on your path, you can find the ctnew script
|
||||
in the "bin" directory of your Cantera installation directory.
|
||||
|
||||
First make sure the Cantera demo works by typing "make -f demo.mak",
|
||||
then "./demo". Assuming this works, now edit demo.mak and change the
|
||||
line "OBJS = demo.o" to "OBJS = blasius.o". You can optionally change
|
||||
the program name too. Now when you rebuild the executable and run it,
|
||||
it will solve the blasius boundary layer problem.
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
Loading…
Add table
Reference in a new issue