MathGroup Archive 2007

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

Search the Archive

Re: Solving periodic functions


On Apr 12, 2007, at 4:46 AM, David Rees wrote:

> This is probably totally elementary, but I'm stumped nonetheless.
>
> Anyway, in Mathematica, how do I solve an equation with multiple 
> periodic
> functions within a given function domain bound?
>
> i.e. How would I find all values of x given 6Cos[x]-5Cos[x] = 0 =
where
> 0<x<=2Pi ?
>
> thanks
>
>

Me as a newbie, I would start with Reduce.

In[2]:=
Reduce[{6*Cos[x] -
      5*Sin[x] == 0,
    Inequality[0, Less, x,
     LessEqual, 2*Pi]}, x]
Out[2]=
x == 2*Pi + 2*ArcTan[
       (1/6)*(-5 - Sqrt[
          61])] ||
   x == 2*ArcTan[(1/6)*
       (-5 + Sqrt[61])]

J=E1nos


----------------------------------------------
Trying to argue with a politician is like lifting up the head of a 
corpse.
(S. Lem: His Master Voice)



  • Prev by Date: Problem wit cubic spline
  • Next by Date: Re: Clean-up code for packages
  • Previous by thread: Re: Solving periodic functions
  • Next by thread: Re: Solving periodic functions