MathGroup Archive 2001

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

Search the Archive

Re: Find many Roots


In a message dated 12/24/01 3:47:44 AM, syftech at saad.org.il writes:

>I am trying to find all roots of the Equation: Tan[x]==1/x, {x,0,12}].
>What is the best way?
>

Needs["Graphics`Colors`"];
Needs["Graphics`Graphics`"];

DisplayTogether[Table[
      Plot[Tan[x]-1/x, {x, k*Pi-Pi/2, k*Pi+Pi/2}, 
        PlotStyle -> Red], 
      {k, 0,5}], PlotRange -> {{0, 12}, {-10, 10}}];

Flatten[Table[FindRoot[Tan[x] == 1/x, {x, (k+.001)*Pi}], 
    {k, 0, 3}]]

{x -> 0.860334, x -> 3.42562, x -> 6.4373, x -> 9.52933}

Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: Find many Roots
  • Next by Date: Re Solve for Equations
  • Previous by thread: Re: Find many Roots
  • Next by thread: Re: Re: Find many Roots