Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

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.
> 


  • Prev by Date: Linear Programming Question
  • Next by Date: Re: Trigonometric simplification
  • Previous by thread: Re: Trigonometric simplification
  • Next by thread: Re: Trigonometric simplification