(* Examples of solving a system of 3 non-linear equations *) (* Simply paste each one at the Mathemtica prompt *) (*Initially, try {0.1 1.2 2.5 } as a starting point *) (* Problem? Try {0.2 1.2 2.5 } *) (* How about {1 0 1} ? *) FindRoot[{x+y+z == 3.0, x*x + y*y + z*z == 5.0, Exp[x] + x*y - x*z ==1.0}, {x, 0.001}, {y, 0.0}, {z, 0.0}]