 
 
 
 
 
 
Re: how to simplify a complicated equation?
- To: mathgroup at smc.vnet.net
- Subject: [mg43580] Re: [mg43529] how to simplify a complicated equation?
- From: Bob Walker <walkerbg at ieee.org>
- Date: Sun, 21 Sep 2003 05:42:19 -0400 (EDT)
- References: <200309190741.DAA22243@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Bryan
Let
In[1 ]=  aa = Transpose[rx].Transpose[ry].rz.ry.rx;
Apply your first constraint
In[2]=  Simplify[aa == correct, b^2 == 1 - a^2 - c^2]
Out[2]= True
Applying the Simplify to aa and correct individually, in this case, 
returns identical expressions
The following also works
In[3]= Simplify[aa == correct] //. b^2 -> 1 - a^2 - c^2
Out[3]= True
Applying this Simplify to aa and correct individually gives two 
different expressions (both different from the first Simplify), but 
Mathematica still determines that they are equal.
Note that in general, you will still have to help.
Take care
Bob Walker
bryan wrote:
>Dear All,
>  I'm dealing with the problem about the coordinate rotation matrix
>around an arbitrary axis; and I have a correct answer. How can I use
>some constraints to reduce or simplify an equation to desired form ?
>For example, here
>
>In[1]:  correct={{a^2 (1-Cos[t])+Cos[t],a b (1-Cos[t])+c Sin[t],a c
>(1-Cos[t])-b Sin[t]},{a b (1-Cos[t])-c Sin[t],b^2 (1-Cos[t])+Cos[t],b
>c (1-Cos[t])+a Sin[t]},{a c (1-Cos[t])+b Sin[t],b c (1-Cos[t])-a
>Sin[t],c^2 (1-Cos[t])+Cos[t]}};
>
>In[2]:  rx={{1,0,0},{0,c/Sqrt[b^2+c^2],-b/Sqrt[b^2+c^2]},{0,b/Sqrt[b^2+c^2],c/Sqrt[b^2+c^2]}};
>        ry={{Sqrt[b^2+c^2],0,-a},{0,1,0},{a,0,Sqrt[b^2+c^2]}};
>        rz={{Cos[t],Sin[t],0},{-Sin[t],Cos[t],0},{0,0,1}};
>
>I wanna to compare if correct equal
>Transpose[rx].Transpose[ry].rz.ry.rx
>I use Replace and Simplify alternately and the methos is very stupid
>and troublesome. Because I have to observe the resulte equation in
>advance to decide what "form" or what symbol I should replace it ~
>Below is what I do:
>
>In[3]:  aaa = ReplaceRepeated[Simplify[ReplaceAll[Simplify[Transpose[
>        rx].Transpose[ry].rz.ry.rx] // MatrixForm, {b^2 -> 1 - a^2 - 
>                  c^2, b^4 -> (1 - a^2 - c^2)^2}]], {a^2 + c^2 -> 
>                1 - b^2, -a^2 - c^2 -> -1 + b^2}] // MatrixForm
>
>And finally, I found that aaa is the same as the correct matrix, but
>it took me a lot of work. Could anyone have good idea or some method
>to simplify an equation with some constraints ? Thanks for your help.
>
>           Best   Regards                          Bryan
>
>
>  
>
- References:
- how to simplify a complicated equation?
- From: timreh719@yahoo.com.tw (bryan)
 
 
- how to simplify a complicated equation?

