Re: solving nonlinear equation with mathematica !!

• To: mathgroup at smc.vnet.net
• Subject: [mg47155] Re: solving nonlinear equation with mathematica !!
• From: bobhanlon at aol.com (Bob Hanlon)
• Date: Sun, 28 Mar 2004 00:07:45 -0500 (EST)
• References: <c438oj\$ekr\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Check your graph; you must have a wrong equation.

Needs["Graphics`ImplicitPlot`"];

Needs["Graphics`Colors`"];

eqns={x^2-y-1==0, 10*x*Exp[-x]-y==0};

FindRoot[eqns,
{x,#[[1]]}, {y,#[[2]]}]& /@
{{-0.1, -1}, {2, 2.5}}

{{x -> -0.09058966837961079, y -> -0.9917935119828722},
{x -> 1.9446329780681595, y -> 2.7815974193902346}}

pts = {x, y} /. %;

ImplicitPlot[eqns,{x,-0.2,2.2},
AspectRatio->1/GoldenRatio,
Frame->True, Axes->False,
PlotStyle -> {Blue, Green},
Epilog-> {AbsolutePointSize[4], Red, Point /@ pts}];

Plot[{x^2-1, 10*x*Exp[-x]}, {x,-0.2,2.2},
Frame->True, Axes->False,
PlotStyle -> {Blue, Green},
Epilog-> {AbsolutePointSize[4], Red, Point /@ pts}];

Bob Hanlon

In article <c438oj\$ekr\$1 at smc.vnet.net>, m004202002 at yahoo.com (why) wrote:

<< 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 ).

```

• Prev by Date: Re: solving nonlinear equation with mathematica !!
• Next by Date: Re: Yet another Mathematica docs whopper
• Previous by thread: Re: solving nonlinear equation with mathematica !!
• Next by thread: Re: solving nonlinear equation with mathematica !!