uses MtxExpr, Math387, Optimization; procedure Example; var A,AFinal: Matrix; b,c,x: Vector; ind; VectorInt; st: TLPSolution; fmin: double; begin A.SetIt(2,2,false,[1,-1,2,4]); b.SetIt(false,[2,15]); c.SetIt(false,[1,-3]); fmin := CPA(A,b,c,AFinal,x,ind,st,true,nil); // fmin = -9.0 // x1=0, x2=3 end;

#include "MtxExpr.hpp" #include "Math387.hpp" #include "Optimization.hpp" void __fastcall Example; { sMatrix A,Af; sVector b,c,x; iVector indexes; TLPSolution sol; A.SetIt(2,2,false, OPENARRAY(double,(1,-1,2,4))); b.SetIt(OPENARRAY(double,(2,15))); c.SetIt(OPENARRAY(double,(1,-3))); // Find minimum using above system double f = CPA(A,b,c,,Af,x,indexes,sol,true,NULL); // f = -9.0 // x1=0, x2=3 }