var X,B: TVec; A: TMtx; begin CreateIt(X,B); CreateIt(A); try B.SetIt(False,[0,2]); A.SetIt(2,2,false,[1,2, 3,4]); // 2x2, not complex matrix A.RefineSolution := True; A.ConditionNumber := cnNormInf; A.LUSolve(B,X); finally FreeIt(B,X); FreeIt(A); end; end;