(* Linear Algebra: Theory and Applications *) (* Ward Cheney & David Kincaid *) (* JBPub.com (c) 2008 *) (* File: exp614.mat *) (* Example 6.1.4 *) A = {{1,1},{0,1}} {DD,P} = Eigensystem[A] A.P == P.DiagonalMatrix[DD]