       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
>

```

• Prev by Date: Re: FindRoot
• Next by Date: Re: Piecewise functions
• Previous by thread: Re: FindRoot
• Next by thread: Re: := vs. =