# Linear Algebra: Theory and Applications
# Ward Cheney & David Kincaid
# JBPub.com (c) 2008 
# File: exp614.map
# Example 6.1.4

with(LinearAlgebra):
A := Matrix([[1,1],[0,1]]);
(DD,P) := Eigenvectors(A);
A.P = P.DiagonalMatrix(DD);