(*						      *)
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* No warranties implied or expressed.	              *)
(* File: svd					      *)

(* SVD Factorization *)
A := MatrixForm[{{1,3,-2}, {2,7,5}, {2,-3,4}, {5,-3,-2}}]
[UT,DD,VT] := SingularValues(N[%]];
MatrixForm[UT]
MatrixForm[DD]
MatrixForm[VT]
MatrixForm[Transpose[UT].DiagonalMatrix[DD].VT]