       Re: Periodic function Roots

• To: mathgroup at smc.vnet.net
• Subject: [mg58403] Re: [mg58391] Periodic function Roots
• From: "David Park" <djmp at earthlink.net>
• Date: Fri, 1 Jul 2005 02:01:56 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```This is also a good example for using Ted Ersek's RootSearch package on
MathSource. I believe he has just updated it, or is about to update it.
The advantage is that it will find all the roots in a domain with a single
command.

Needs["Ersek`RootSearch`"]

f[x_] := Cos[x] + .5 Cos[2x] + .25 Cos[3x] + 2.5 Cos[4x]

RootSearch[f[x] == 0, {x, 0, 2\[Pi]}]
{{x -> 0.51129}, {x -> 1.20136}, {x -> 1.91222}, {x -> 2.81887}, {x ->
3.46432}, {x -> 4.37096}, {x -> 5.08183}, {x -> 5.7719}}

David Park

From: FBellas [mailto:no at e.s]
To: mathgroup at smc.vnet.net

Hello, I'm trying to solve an periodic ecuation involving several harmonics
(Style ACos(x)+BCos(2x)+...==K). Mathematica can't let me us  'Solve'
function, so it gives me the error:
Solve::tdep: The equations appear to involve the variables to be solved for
\
in an essentially non-algebraic way.

To arrange this, i'm making a little program involving FindRoot function to
find at least two roots from the ecuation in the first period. But I would
like to know if there are some other method to do this more easily.

Thanks a lot

F. Bellas

```

• Prev by Date: Explicit solution to Root[]
• Next by Date: Re: Sudoku puzzle
• Previous by thread: Re: Periodic function Roots
• Next by thread: Re: Periodic function Roots