1
$\begingroup$

For the following problems I used "FullSimplify" and "TrigReduce" but I manage to reduce more by hand.

FullSimplify[(Cos[2*a + b + c]*Tan[a + 2*b + 2*c])/Sin[(b + c - a)/2],
a + b + c == \[Pi]] // TrigReduce

Sin[2 a]/(1 + Cos[2 b + 2 c] (* Mathematica's solution *)

I am looking for expression containing:

a) -Tan[a] b) -Cot[a] c) Cot[a] d) Tan[a] e) Sin[a]

A similar situation is the following:

FullSimplify[(Sin[(6*Pi)/5 + x])^2 + (Sin[(4*Pi)/5 - x])^2, 
Cos[Pi/5 + x] == m^-1] // TrigReduce

1 - Sin[\[Pi]/10 - 2 x] (* Mathematica's solution *)

Here I am looking for expression containing:

a) 2(1-m^2) b) 1-1/m^2 c) 2(m^2-1)/m2 d) (m^2-1)/2m^2 e) (m^2+1)/(m^2-1)

Any suggestions?

$\endgroup$

1 Answer 1

2
$\begingroup$
Simplify[(Cos[2*a + b + c]*Tan[a + 2*b + 2*c])/
    Sin[(b + c - a)/2]] /. (b -> Pi - a - c) // TrigExpand

Tan[a]

Simplify[(Sin[(6*Pi)/5 + x])^2 + (Sin[(4*Pi)/5 - x])^2 // Simplify, 
  Pi/5 + x == ArcCos[m^-1]] // Together

(2*(-1 + m^2))/m^2

$\endgroup$
2
  • $\begingroup$ thanks...Why the "together" at the end of the second? $\endgroup$ May 24, 2015 at 18:44
  • $\begingroup$ To put in the form that you requested (item c). If you want the simplest form then modify the question and leave off the Together. $\endgroup$
    – Bob Hanlon
    May 24, 2015 at 18:54

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.