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