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.
Thanks in advance
Jeremy
/*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/
Jeremy Gorman "Just a Comment"
Most of my opinions are my own (especially if expressed here) !
/*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/ /*\ \*/