Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

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.



  • Prev by Date: debugging
  • Next by Date: Re: Sequence is funny !
  • Previous by thread: Re: FindRoot
  • Next by thread: Re: FindRoot