# 
# Numerical Mathematics and Computing, Fifth Edition
# Ward Cheney & David Kincaid
# Brooks/Cole Publ. Co.
# (c) 2003
#
# file:  char
#
# Characteristic polynomial of a matrix
#
with(LinearAlgebra):
A := Matrix([[3, 2], [7, -2]]);
p := CharacteristicPolynomial(A, t);
solve(p);
Eigenvalues(A);