MathGroup Archive 2001

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

Search the Archive

Re: Expanding Trig Power Identities


In a message dated 2001/8/11 3:59:50 AM, adam_jurhs at xontech.com writes:

>How can I use Mathematica to find the expansion of various trigonometric
>power
>identities?  I've already tried TrigExpand w/o succes.
>
>I have functions of the form Sin[a](Sin[b])^n  and  Cos[a](Cos[b])^n 
>where n is a power.
>
>I would like to get the fully expanded version of these functions, so
>that there are no more powers involved.  If n=1 then the answer is
>just the standard product relations that you can look up in the back
>of any trig book.  But I need to be able to do it for higher powers of
>n.  And I don't know how to even do it for n=1.
>

TrigReduce[Sin[a]*Sin[b]^3]

(1/8)*(-Cos[a - 3*b] + 3*Cos[a - b] - 3*Cos[a + b] + 
   Cos[a + 3*b])

Table[{y = Sin[a]*Sin[b]^n, "=", TrigReduce[y]}, {n, 4}] // TableForm

Table[{y = Cos[a]*Cos[b]^n, "=", TrigReduce[y]}, {n, 4}] // TableForm


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: Expanding Trig Power Identities
  • Next by Date: Re: Re: Problem with FourierTransform
  • Previous by thread: Re: Expanding Trig Power Identities
  • Next by thread: Re: Expanding Trig Power Identities