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