MathGroup Archive 2004

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

Search the Archive

Re: FindRoot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg47444] Re: FindRoot
  • From: "Bobby" <drbob at bigfoot.com>
  • Date: Mon, 12 Apr 2004 03:44:58 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Try this instead:



FindRoot[Sin[x] == x/2,   {x, 10}, StepMonitor :> Print[{x, Sin[x] - x/2}]]



{5.859802116237182,

  -3.3407483259106083}

{7.779913897338607,

  -2.892698709682078}

{0.9895408254367455,

  0.3410035333295145}

{0.2946601858653466,

  0.14308460551880442}

{-0.01850315074790676,

  -0.009250519581930038}

{4.22454210052825*^-6,

  2.1122710502515594*^-6}

{-5.026293509007018*^-17,

  -2.513146754503509*^-17}

{x -> -5.026293509007018*^-17}

Bobby R. Treat

StringReplace["lAWyerbillAtsmallfoot.com"//ToLowerCase,Rule@@@Reverse/@ToLow
erCase//@{{"dR","lAwyer"},{"@","AT"},{"bIg","small"},{"bOb","bill"}}]

"Bruce W. Colletti" <bcolletti at compuserve.com> wrote in message
news:<c5b1av$7n7$1 at smc.vnet.net>...

> Am using Mathematica 5.0.1.0 under WinXP Home, and am testing the

> function below.  Taken from a book on Mathematica 4.0, the example says:

>

>

>     FindRoot[Print[x]; Sin[x] == x/2, {x, 10}]

>

> returns the evolving solutions before terminating with a solution.

>

> However, when I run this, it doesn't display evolving solutions.  Is

> this a difference between v4.0 and 5.0, or is the above command wrong

> (although taken verbatim from the book)?

>

> Thankx.

>

> Bruce


  • Prev by Date: Re: NDSolve for Newtonian Orbits Question
  • Next by Date: RE: Complex Numbers
  • Previous by thread: Re: FindRoot
  • Next by thread: No more memory available... when using ExplicitEuler method for Diffusion equations in Mathematica NDSolve