40 Rosenbrock23::a21 = 1,
41 Rosenbrock23::a31 = 1,
42 Rosenbrock23::a32 = 0,
44 Rosenbrock23::c21 = -1.0156171083877702091975600115545,
45 Rosenbrock23::c31 = 4.0759956452537699824805835358067,
46 Rosenbrock23::c32 = 9.2076794298330791242156818474003,
49 Rosenbrock23::b2 = 6.1697947043828245592553615689730,
50 Rosenbrock23::b3 = -0.4277225654321857332623837380651,
52 Rosenbrock23::e1 = 0.5,
53 Rosenbrock23::e2 = -2.9079558716805469821718236208017,
54 Rosenbrock23::e3 = 0.2235406989781156962736090927619,
56 Rosenbrock23::gamma = 0.43586652150845899941601945119356,
57 Rosenbrock23::c2 = 0.43586652150845899941601945119356,
59 Rosenbrock23::d1 = 0.43586652150845899941601945119356,
60 Rosenbrock23::d2 = 0.24291996454816804366592249683314,
61 Rosenbrock23::d3 = 2.1851380027664058511513169485832;
117 odes_.jacobian(x0,
y0, dfdx_, dfdy_);
119 for (label i=0; i<n_; i++)
121 for (label j=0; j<n_; j++)
123 a_(i, j) = -dfdy_(i, j);
126 a_(i, i) += 1.0/(
gamma*dx);
134 k1_[i] = dydx0[i] + dx*d1*dfdx_[i];
142 y[i] =
y0[i] + a21*k1_[i];
145 odes_.derivatives(x0 +
c2*dx,
y, dydx_);
149 k2_[i] = dydx_[i] + dx*d2*dfdx_[i] + c21*k1_[i]/dx;
157 k3_[i] = dydx_[i] + dx*d3*dfdx_[i]
158 + (c31*k1_[i] + c32*k2_[i])/dx;
166 y[i] =
y0[i] + b1*k1_[i] + b2*k2_[i] + b3*k3_[i];
167 err_[i] = e1*k1_[i] + e2*k2_[i] + e3*k3_[i];
170 return normalizeError(
y0,
y, err_);
virtual scalar solve(const scalar x0, const scalarField &y0, const scalarField &dydx0, const scalar dx, scalarField &y) const =0
Solve a single step dx and return the error.
Abstract base class for the systems of ordinary differential equations.
virtual bool resize()=0
Resize the ODE solver.
A list of keyword definitions, which are a keyword followed by a number of values (eg...
void LUDecompose(scalarSquareMatrix &matrix, labelList &pivotIndices)
LU decompose the matrix with pivoting.
const dimensionedScalar c2
Second radiation constant: default SI units: [m.K].
dimensionedScalar y0(const dimensionedScalar &ds)
An ODE solver for chemistry.
Macros for easy insertion into run-time selection tables.
#define forAll(list, i)
Loop across all elements in list.
virtual scalar solve(const scalar x0, const scalarField &y0, const scalarField &dydx0, const scalar dx, scalarField &y) const
Solve a single step dx and return the error.
bool resize(const label n)
Resize the ODE solver.
void resizeMatrix(scalarSquareMatrix &m) const
Field< scalar > scalarField
Specialisation of Field<T> for scalar.
Rosenbrock23(const ODESystem &ode, const dictionary &dict)
Construct from ODESystem.
virtual bool resize()
Resize the ODE solver.
defineTypeNameAndDebug(combustionModel, 0)
Abstract base-class for ODE system solvers.
static void resizeField(UList< Type > &f, const label n)
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 in the source.
addToRunTimeSelectionTable(functionObject, pointHistory, dictionary)