RE: FindRoot

*To*: mathgroup at smc.vnet.net*Subject*: [mg8908] RE: [mg8887] FindRoot*From*: Ersek_Ted%PAX1A at mr.nawcad.navy.mil*Date*: Thu, 2 Oct 1997 22:57:00 -0400*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? | | This will work. In[1]:= solution[a_]:= x/.Part[FindRoot[Sin[x]==x/a, {x, 1, 5}] , 1] In[2]:= solution[2.2] Out[2]= 2.00024 In[3]:= Plot[solution[a],{a,2,3}] Out[3]= - Graphics - (* Graphics not shown. *) Ted Ersek ersek_ted%pax1a at mr.nawcad.navy.mil FindRoot is one of my favorite features.