(*						      *)	
(* Numerical Mathematics and Computing, Fifth Edition *)
(* Ward Cheney & David Kincaid		              *)
(* Brooks/Cole Publ. Co.			      *)
(* (c) 2003                                           *)
(* 					              *)	
(* File: newt_sys			              *)

(* Section 3.2 *)
(* FindRoot searchs for numerical solutions to simultaneous equations *)

FindRoot[{x + y + z == 3, x*x + y*y + z*z == 5, Exp[x] + x*y - x*z == 1}, 
         {x,0.5}, {y,1.5}, {z,0.5}]