Uses Math387, MtxVecTools; function MyFunction(const Pars: TVec; const consts: TVec; const OConsts: Array of TObject): double; var tmpVec: TVec; begin tmpVec: = OConsts[0] as TVec; MyFunction := Pars[0]*tmpVec.Sum -tmpVec.SumOfSquares*Pars[1]; end; begin // ... MtxOptimization.VariableParameters.SetIt(false,[-1,0]); MtxOptimization1.SetObjects([XVec]); // ... end;

#include "MtxExpr.hpp" #include "Math387.hpp" #include "MtxVecTools.hpp" // define the real function to be minimized double __fastcall VecFun(TVec* const Parameters, TVec* const Constants, System::TObject* const * ObjConst, const int ObjConst_Size) { double* pars = Parameters->PValues1D(0); TVec *tmpVec = dynamic_cast<TVec*>(ObjConst[0]); return (pars[0] * tmpVec->Sum() - pars[1] * tmpVec->SumOfSquares()); } void __fastcall Example(TMtxOptimization* opt1); { // ... opt1->RealFunction = VecFun; opt1->VariableParameters->SetIt(false,OPENARRAY(double,(-1,0))); sVector xVec; TObject* o[1]; o[0] = xVec; opt1->SetObjects(o,0); }