var A,U,V: Matrix; S: Vector; begin 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] end;