MathGroup Archive 1997

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

Search the Archive

Fwd: FindRoot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg8926] Fwd: [mg8887] FindRoot
  • From: BobHanlon at aol.com
  • Date: Sat, 4 Oct 1997 22:08:04 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

It is multi-valued.  Execute the following:

FindRoot[Sin[x]==x/2.5, {x,2.1}]

FindRoot[Sin[x]==x/2.5, {x,-2.1}]

Plot[ x /. FindRoot[Sin[x]==x/a, {x,2.1}], {a, 2.,3.}];

Plot[ x /. FindRoot[Sin[x]==x/a, {x,-2.1}], {a, 2.,3.}];

Plot[ {x /. FindRoot[Sin[x]==x/a, {x,2.1}], 
    x /. FindRoot[Sin[x]==x/a, {x,-2.1}]}, {a, 2.,3.}];

Bob Hanlon
---------------------
Forwarded message:
From:	dd4b at virginia.edu (David Djajaputra)
To: mathgroup at smc.vnet.net
To:	mathgroup at smc.vnet.net

I need to plot the root of a transcendental equation

sin(x)=x/a,     for a from 2 to 3.

I can find the root for each a using FindRoot. But how do I make a
continuous plot
using FindRoot?


Thanks a lot!

David Djajaputra





  • Prev by Date: Re: Compiled Functions and Mathgroup Archive
  • Next by Date: Re: := vs. =
  • Previous by thread: Re: FindRoot
  • Next by thread: Re: FindRoot