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

with(LinearAlgebra):
A := Matrix([[0.6,0.3],[-0.2,1.2]]);
(DD,P) := Eigenvectors(A);
Norm(MatrixInverse(P).A.P - DiagonalMatrix(DD),2);
c := Solve[V,Vector([6.97,3.87]);