Class
TMtxNonLinReg
| See Also |
|---|
| DeriveProcedure |
// y=b0*x*x + b1*x + b2 i.e. parabola function SimpleParabola(B: Array of TSample; X: TSample): TSample; begin Result := b[0]*Sqr(x) + b[1]*x + b[2]; end; // procedure for derivatives procedure SimplePabolaDeriv(RegressFun: TRegressFun; X, Y: TSample; Pars: Array of TSample; Grad: TVec); begin Grad[0] := Sqr(x); Grad[1] := x; Grad[2] := 1; end; begin // ... MtxNonLinReg1.RegressFunction := SimpleParabola; MtxNonLinReg1.DeriveProcedure := SimpleParabolaDeriv; end;
| Copyright 2008 Dew Research |