Re: solving nonlinear equation with mathematica !!

*To*: mathgroup at smc.vnet.net*Subject*: [mg47177] Re: solving nonlinear equation with mathematica !!*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Mon, 29 Mar 2004 04:22:24 -0500 (EST)*Organization*: Universitaet Leipzig*References*: <c438oj$ekr$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, elim = Eliminate[{x^2 - y - 1 == 0, 10x Exp[-x] - y == 0}, y]; elim = Eliminate[{x^2 - y - 1 == 0, 10x Exp[-x] - y == 0}, y]; {x, x^2 - y - 1 == 0} /. FindRoot[elim, {x, 1}] /. a_Equal :> (y /. Solve[a, y][[1]]) Regards Jens why wrote: > > Hi, > > I face root finding problem solving nonlinear equation > > I have system nonlinear equation > > x^2-y-1 = 0; > 10x exp(-x)-y = 0 ; > > If you draw the graph you see two intersecting point . > > I have found a point [Using FindRoot function ] > In (-0.1,-0.5) the point is (-0.0905897,-0.991794 )---it is OK > > But > In (2.0,1.0) the point is (1.94463,2.7816) > But the graph says the x->2.something ,y->1.somthing > I have used same FindRoot function to find the root > in (2.0,1.0 ). > > Please help me ASAP . > > .. > I want(exam)to use other methods(bisection/secant etc). > If any one have workout examples of nonlinear equation > please let me know . > ..... > > Thank You .