Re: FindRoot
- To: mathgroup at smc.vnet.net
- Subject: [mg8937] Re: [mg8887] FindRoot
- From: "Sherman.Reed" <sherman.reed at worldnet.att.net>
- Date: Sat, 4 Oct 1997 22:08:14 -0400
- Sender: owner-wri-mathgroup at wolfram.com
David,
Here is some code that will do a piece wise continuous plot:
sol=Table[FindRoot[Sin[x]-x/a=={0,x,2}],{a,2,3,.01}];
solab=Table[a,{a,2,3,.01}];
bb=x/.sol;
new=Table[{0,0},{k,1,101}];
For[i=1,i<102,i++,{new[[i,1]]=solab[[i]],
new[[i,2]]=bb[[i]]}]
ListPlot[new,PlotJoined->True,PlotRange->All,
Frame->True];
enjoy
Sherman C. Reed
sherman.reed at worldnet.att.net
----------
> From: David Djajaputra <dd4b at virginia.edu>
> To: mathgroup at smc.vnet.net
> Subject: [mg8887] FindRoot
> Date: Tuesday, September 30, 1997 7:16 PM
>
> 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
>