(* Linear Algebra: Theory and Applications *)
(* Ward Cheney & David Kincaid *)
(* JBPub.com (c) 2008  *)
(* File: exp8212.mat *)
(* Example 8.2.12      *)

A = {{2,2,2,2},{1.7,0.1,-1.7,-0.1},{0.6,1.8,-0.6,-1.8}}
{P,Diag,Q} = SingularValues[A]
MatrixForm[Transpose[P].DiagonalMatrix[Diag].Q]