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