Re: Trigonometric simplification
- To: mathgroup at smc.vnet.net
- Subject: [mg68888] Re: [mg68838] Trigonometric simplification
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Tue, 22 Aug 2006 05:20:25 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
They're not equal.
r=Tan[a]^2/(Sec[a]^2)^(3/2);
Plot[{r,Cos[a]*Sin[a]^2},{a,0,2Pi},PlotStyle->{Blue,Red}];
Simplify[r//TrigReduce,Element[a, Reals]]
Sin[a]^2/Abs[Sec[a]]
FullSimplify[r//TrigToExp,Element[a, Reals]]
Cos[a]*Sign[Sec[a]]*Sin[a]^2
Bob Hanlon
---- carlos at colorado.edu wrote:
> 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.
>