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

MathGroup Archive 2001

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

Search the Archive

Re: Find many Roots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg32101] Re: [mg32098] Find many Roots
  • From: BobHanlon at aol.com
  • Date: Mon, 24 Dec 2001 23:44:31 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

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