// y=b0*x*x + b1*x + b2 i.e. parabola
void SimpleParabola(
TVec b,
TVecList x,
TVec y)
{
// return b[0]*x*x + b[1]*x + b[2];
y.Sqr(x[0]);
y.Scale(b[0));
y.AddScaled(x[0], b[1]);
y.Add(b[2]);
}
// procedure for derivatives
void SimplePabolaDeriv(
TRegressFun RegressFun,
TVecList x,
TVec y,
double[] pars,
TVecList Grad)
{
Grad[0].Sqr(x[0]);
// Grad[0] := x*x;
Grad[1].Copy(x[0]);
// Grad[1] := x;
Grad[2].Size(x[0]);
// Grad[2] := 1;
Grad[2].SetVal(1);
}
void Example();
{
// ...
Regress.MtxNonLinReg1.RegressFunction = SimpleParabola;
Regress.MtxNonLinReg1.DeriveProcedure = SimpleParabolaDeriv;
}
