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