Uses 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;

#include "MtxExpr.hpp" #include "Math387.hpp" void __fastcall VecFun(TVec* const x, TVec* const f, const double* c, conts int c_count, System::TObject* const* o, const int o_count); { double* X = X.PValues1D(0); (*f)[0] = X[0]*Sqrt(X[0]*X[0]+X[1]*X[1]); (*f)[1] = X[1]*Sqrt(X[0]*X[0]+X[1]*X[1]); (*f)[2] = X[0]*(X[1]-X[0])*(X[1]-X[0]); }