uses MtxExpr, Sparse; procedure Example; var x,b: Vector; sparseM: TSparseMtx; begin // ... x.size(b); sparseM.SolveIterative(b,x); ShowMessage('Number of iterations : ' + IntToStr(sparseM.ActualIters); end;

#include "MtxExpr.hpp" #include "Sparse.hpp" void __fastcall Example() { sVector x,b; x.Size(b); TSparseMtx* sparseM = new TSparseMtx(); //.. sparseM.SolveIterative(b,x); ShowMessage("Number of iterations : " + IntToStr(sparseM->ActualIters); delete sparseM; }