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

with(LinearAlgebra):
A := Matrix([[1.,1.],[-2.,3.]]);
(DD,P) := Eigenvectors(A);
A = P.DiagonalMatrix(DD[1..2],2,2).MatrixInverse(P);