# 
# Numerical Mathematics and Computing, Fifth Edition
# Ward Cheney & David Kincaid
# Brooks/Cole Publ. Co.
# (c) 2003
#
# file: schur
#
# Schur factorization
#
with(LinearAlgebra):
A := Matrix(2,[[2-I, 2+I],[3-I, 3+I]]);
(T, U) := SchurForm(A, output=['T','Z']);
map(fnormal[5], T);
SchurForm(A);
TT := Map(simplify[zero], %);
U.T.HermitianTranspose(U);
map(fnormal[5], %);
map(simplify[zero], %);