TVectorFunction Event

type TVectorFunction = procedure(const X,Y: TVec; const Consts: array of double; const PConsts: array of TObject);

Examples

CopyUses MtxVec, Math387;
procedure VecFun(const x,f: TVec; const c: Array of double; Const o: Array of TObject);
begin
    f[0] := x[0]*Sqrt(Sqr(x[0]+Sqr(x[1]));
    f[1] := x[1]*Sqrt(Sqr(x[0]+Sqr(x[1]));
    f[2] := x[0]*Sqr(x[1]-x[0]);
end;