MathGroup Archive 2010

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

Search the Archive

Simplification question in Mathematica 7

  • To: mathgroup at smc.vnet.net
  • Subject: [mg113840] Simplification question in Mathematica 7
  • From: Jennifer Hatz <btjunkie.org at abv.bg>
  • Date: Mon, 15 Nov 2010 05:50:38 -0500 (EST)

 Both FullSimplify and Simplify do nothing on the following expression
Sqrt[-(((ea - eb)^2 + (na - nb)^2)*(-mb1^2 - mb2^2 + mb2^2*Cos[2*b1] + mb1^2*Cos[2*b2])*Csc[b1 + b2]^4)]/Sqrt[2]

I found out that it is possible to further simplify it to
Sqrt[((ea - eb)^2 + (na - nb)^2)*Csc[b1 + b2]^4*(mb2^2*Sin[b1]^2 + mb1^2*Sin[b2]^2)]

as
FullSimplify[Sqrt[(-(ea - eb)^2 - (na - nb)^2)*(-mb1^2 - mb2^2 + mb2^2*Cos[2*b1] + mb1^2*Cos[2*b2])*Csc[b1 + b2]^4]/Sqrt[2] - Sqrt[((ea - eb)^2 + (na - nb)^2)*Csc[b1 + b2]^4*(mb2^2*Sin[b1]^2 + mb1^2*Sin[b2]^2)]]
produces zero

The question is - is it somehow possible to tell mathematica to convert the first expression into the second?
Are there any additional commands that work on trigonometric functions better than Simplify?

Thanks in advance



  • Prev by Date: Re: Plot and DSolve
  • Next by Date: Using MapAt with Play
  • Previous by thread: Re: sq[x_]:=x*x vs sq=Function[x, x*x]
  • Next by thread: Re: Simplification question in Mathematica 7