(*						      *)
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* No warranties implied or expressed.	              *)
(* File: schur  				      *)

(* Schur Form *) 
 with(LinearAlgebra):
 MatrixForm[{q, t} := SchurDecomposition[
			N[{{2-I, 2+I}, {3-I, 3+I}}]]] 
 MatrixForm[Chop[q.t.Conjugate[Transpose[q]]]]