MathGroup Archive 2005

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

Search the Archive

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
djmp at earthlink.net
http://home.earthlink.net/~djmp/



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