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

(* Characteristic Polynomial & Eigenvalues *)
m = {{3, 2}, {7, -2}}
p = CharacteristicPolynomial[m, x]
NSolve[p == 0, x]
Eigenvalues[m]