var X,B,D: TVec; V: TMtx; begin CreateIt(X,B,D); CreateIt(V); try B.SetIt(false,[0,2,3]); V.SetIt(3,3,false,[1,2,3, 3,4,5, 6,7,7]); V.SVDSolve(B,X,D); // matrix V can be non-quadratic finally FreeIt(X,B,D); FreeIt(V); end; end;