(* *) (* Numerical Mathematics and Computing, Fifth Edition *) (* Ward Cheney & David Kincaid *) (* Brooks/Cole Publ. Co. *) (* (c) 2003 *) (* No warranties implied or expressed. *) (* File: secant *) (* Section 3.3 *) (* NSolve solves a polynomial equation numerically *) NSolve[x^5 + x^3 + 3 == 0,x]