# Linear Algebra: Theory and Applications
# Ward Cheney & David Kincaid
# JBPub.com (c) 2008 
# File: exp8117.map
# Example 8.1.17 Mathematical Software

with(LinearAlgebra):
A := Matrix([[5, 2-I,1+I*sqrt(5)], [2+I,4,3],[1-I*sqrt(5),3,-1]]);
(DD,P) := Eigenvectors(A);
Transpose[P].A.P;