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 >