Re: FindRoot
- To: mathgroup at smc.vnet.net
- Subject: [mg8919] Re: FindRoot
- From: Daniel Lichtblau <danl>
- Date: Thu, 2 Oct 1997 22:57:15 -0400
- Organization: Wolfram Research, Inc.
- Sender: owner-wri-mathgroup at wolfram.com
David Djajaputra wrote:
>
> 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
Maybe something like this? It will look for roots near x==2, and, as it
happens, I get a continuous graph for a in the range from 2 to 3.
f[a_] := FindRoot[Sin[x]==x/a, {x,2}]
Plot[x /.f[a], {a,2,3}]
Note that x==0 is always a root for the equation you gave.
Daniel Lichtblau
Wolfram Research
danl at wolfram.com