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

(* Section 3.1 *)
(* NSolve solves a polynomial equation numerically *)

NSolve[x^3 -3x + 1 == 0,x]

(* FindRoot searchs for a numerical solution to an equation starting
at $x=2$ *)

FindRoot[x^3 - 2*Sin[x] == 0,{x,2}]