MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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. =