Re: Trigonometric simplification

• To: mathgroup at smc.vnet.net
• Subject: [mg68890] Re: Trigonometric simplification
• From: "Dana DeLouis" <dana.del at gmail.com>
• Date: Tue, 22 Aug 2006 05:20:29 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```>   r=Tan[a]^2/(Sec[a]^2)^(3/2)
>     simplifying that to
>   r=Cos[a]*Sin[a]^2

r = Tan[a]^2/(Sec[a]^2)^(3/2);

Hi.  Just one of a few ways. With a Sqrt on Sec[a], try to find values of 'a
where Sec[a] is positive.
Since I've forgotten what they are...

Plot[Sec[a], {a, -Pi, Pi},
Ticks -> {Range[-Pi, Pi, Pi/4], Automatic}];

Therefore:
Assuming[{-Pi/2 < a < Pi/2}, Simplify[r]]

Cos[a]*Sin[a]^2

--
HTH.  :>)
Dana DeLouis
Windows XP, Mathematica 5.2

<carlos at colorado.edu> wrote in message news:ecbnnc\$r29\$1 at smc.vnet.net...
> As an intermediate result of some calculations I have
> the expression
>
>   r=Tan[a]^2/(Sec[a]^2)^(3/2)
>
> where a is real. How can I coerce Mathematica into
> simplifying that to
>
>   r=Cos[a]*Sin[a]^2
>
> Both Simplify and FullSimplify with assumptions on a
> fail to get the simpler form.
>

```

• Prev by Date: Re: Trigonometric simplification
• Next by Date: Re: position lists
• Previous by thread: Re: Re: Trigonometric simplification
• Next by thread: Re: Trigonometric simplification