38 rodas23::d1 = 1.0/2.0,
39 rodas23::d2 = 3.0/2.0,
47 rodas23::c43 = -8.0/3.0,
48 rodas23::gamma = 1.0/2.0;
115 a_(i, j) = -dfdy_(i, j);
118 a_(i, i) += 1.0/(gamma*dx);
126 k1_[i] = dydx0[i] + dx*d1*dfdx_[i];
134 k2_[i] = dydx0[i] + dx*d2*dfdx_[i] + c21*k1_[i]/dx;
143 y[i] = y0[i] + dy_[i];
150 k3_[i] = dydx_[i] + (c31*k1_[i] + c32*k2_[i])/dx;
159 y[i] = y0[i] + dy_[i];
166 err_[i] = dydx_[i] + (c41*k1_[i] + c42*k2_[i] + c43*k3_[i])/dx;
173 y[i] = y0[i] + dy_[i] + err_[i];
#define forAll(list, i)
Loop across all elements in list.
Abstract base class for the systems of ordinary differential equations.
virtual bool resize()=0
Resize the ODE solver.
rodas23(const ODESystem &ode, const dictionary &dict)
Construct from ODESystem.
virtual scalar solve(const scalar x0, const scalarField &y0, const label li, const scalarField &dydx0, const scalar dx, scalarField &y) const
Solve a single step dx and return the error.
A list of keyword definitions, which are a keyword followed by any number of values (e...
void LUDecompose(scalarSquareMatrix &matrix, labelList &pivotIndices)
LU decompose the matrix with pivoting.
virtual void derivatives(const scalar x, const scalarField &y, const label li, scalarField &dydx) const =0
Calculate the derivatives in dydx.
An ODE solver for chemistry.
scalar normaliseError(const scalarField &y0, const scalarField &y, const scalarField &err) const
Return the normalised scalar error.
Macros for easy insertion into run-time selection tables.
bool resize(const label n)
Resize the ODE solver.
void resizeMatrix(scalarSquareMatrix &m) const
const ODESystem & odes_
Reference to ODESystem.
addToRunTimeSelectionTable(ensightPart, ensightPartCells, istream)
virtual bool resize()
Resize the ODE solver.
defineTypeNameAndDebug(combustionModel, 0)
Abstract base-class for ODE system solvers.
virtual void jacobian(const scalar x, const scalarField &y, const label li, scalarField &dfdx, scalarSquareMatrix &dfdy) const =0
Calculate the Jacobian of the system.
static void resizeField(UList< Type > &f, const label n)
virtual scalar solve(const scalar x0, const scalarField &y0, const label li, const scalarField &dydx0, const scalar dx, scalarField &y) const =0
Solve a single step dx and return the error.
label n_
Size of the ODESystem (adjustable)
void LUBacksubstitute(const scalarSquareMatrix &luMmatrix, const labelList &pivotIndices, List< Type > &source)
LU back-substitution with given source, returning the solution.