Are two expressions equal?

• To: mathgroup at smc.vnet.net
• Subject: [mg5058] Are two expressions equal?
• From: jeremy_gorman at smtp.svl.trw.com (Jeremy Gorman)
• Date: Wed, 23 Oct 1996 01:38:16 -0400
• Organization: TRW ASG Sunnyvale (formerly ESL)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello Folks,

How can I check to see if these expressions are equal?
----------------------------
In[25]:=
q1 == q2
Out[25]=
phi   psi      theta      phi   psi      theta
x (-2 Cos[--- + ---] Cos[-----] Sin[--- - ---] Sin[-----] +
2     2         2         2     2         2

phi   psi      theta      phi   psi      theta
2 Cos[--- - ---] Cos[-----] Sin[--- + ---] Sin[-----]) +
2     2         2         2     2         2

phi   psi      phi   psi      theta      theta
y (-2 Cos[--- - ---] Cos[--- + ---] Cos[-----] Sin[-----] -
2     2        2     2         2          2

theta      phi   psi      phi   psi      theta
2 Cos[-----] Sin[--- - ---] Sin[--- + ---] Sin[-----]) +
2         2     2        2     2         2

phi   psi 2     theta 2       theta 2     phi   psi 2
z (Cos[--- + ---]  Cos[-----]  + Cos[-----]  Sin[--- + ---]  +
2     2          2             2          2     2

phi   psi 2     theta 2       phi   psi 2     theta 2
Cos[--- - ---]  Sin[-----]  + Sin[--- - ---]  Sin[-----] ) ==
2     2          2            2     2          2

z Cos[psi] Cos[theta] + y (-(Sin[phi] Sin[psi]) +

Cos[phi] Cos[psi] Sin[theta]) +

x (Cos[phi] Sin[psi] + Cos[psi] Sin[phi] Sin[theta])
-------------------------------
I've tried
Expand[q1]==Expand[q2]
but Mma 2.2.2 still returns an expresion with == in it.
I could go through comparing subexpressions, but there are a few
more of these which I'd like to compare, and I'm hoping for a
more general approach.