var A,U,V: TMtx; S: TVec; begin CreateIt(U,V,A); CreateIt(S); try A.SetIt(3,3,True, [2, 5, 12, 1, 5, 2.5, -4, 2, 8, 0, 0, 3, 2, 0, 4, 8, 12, 8]); A.SVD(U,S,V); // S = [21.3406,10.9726,3.7989] finally FreeIt(U,V,A); FreeIt(S); end; end;