(* *) (* Numerical Mathematics and Computing, Fifth Edition *) (* Ward Cheney & David Kincaid *) (* Brooks/Cole Publ. Co. *) (* (c) 2003 *) (* No warranties implied or expressed. *) (* File: eigen *) (*Eigenvalues & Eigenvectors *) m = {{1, 3, -7}, {-3, 4, 1}, {2, -5, 1}} Eigenvalues[m] (val, vec) = Eigensystem[m]