MAMBO logo MAMBO & the MAMBO Toolbox MAMBO logo

FindRotation — Extraction of relative orientation of triads [mathematica]

FindRotation[a1,a2]

a1, a2: names of defined triads

The function FindRotation returns the rotation matrix between the triads labeled by a1 and a2.

Restart;
DeclareTriads[a,b];
DefineTriads[a,b,q,1,2,3];
FindRotation[a,b]

{ { 1 14 ( 1 - Cos [ q ] ) + Cos [ q ] , 1 7 ( 1 - Cos [ q ] ) - 3 Sin [ q ] 14 , 3 14 ( 1 - Cos [ q ] ) + 2 7 Sin [ q ] } , { 1 7 ( 1 - Cos [ q ] ) + 3 Sin [ q ] 14 , 2 7 ( 1 - Cos [ q ] ) + Cos [ q ] , 3 7 ( 1 - Cos [ q ] ) - Sin [ q ] 14 } , { 3 14 ( 1 - Cos [ q ] ) - 2 7 Sin [ q ] , 3 7 ( 1 - Cos [ q ] ) + Sin [ q ] 14 , 9 14 ( 1 - Cos [ q ] ) + Cos [ q ] } }


Toolbox functions