MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: FindRoot s all


This is another case where I find Ted Ersek's RootSearch package more
convenient.

y[u_, c_] = c^u - u^c - 1 ;
Plot[y[x, 2], {x, -5, 5}];

Needs["Enhancements`RootSearch`"]
RootSearch[y[x, 2] == 0, {x, -5, 5}]
{{x -> 0.}, {x -> 1.}, {x -> 4.25746}}

The package may be obtained at
http://library.wolfram.com/infocenter/MathSource/4482/.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: Narasimham G.L. [mailto:mathma18 at hotmail.com]
To: mathgroup at smc.vnet.net

y[u_,c_]=c^u-u^c-1 ;
Plot[y[x,2],{x,-5,5}]; FindRoot[y[x,2]==0,{x,-5,5}];
" Solution settles to a value outside the interval
of roots of its derivative (humps and valleys),it may be
the problem of Newton-Raphson diverging tangets.How to
capture all roots [in this case {x -> 0, 1}] ? It should be
valid for all c."
TIA





  • Prev by Date: Re: using file txt in mathematica
  • Next by Date: Re: using file txt in mathematica
  • Previous by thread: Re: FindRoot s all
  • Next by thread: Re: FindRoot s all