How to work with quarternions in Wolfram Mathematica? [closed]

How can I write the insructions from this link http://blog.wolframalpha.com/2011/08/25/quaternion-properties-and-interactive-rotations-with-wolframalpha/ in Mathematica to obtain the same result?

Thanks!

=================

=================

1 Answer
1

=================

To do the calculation without recourse to Wolfram|Alpha you can do

Needs[“Quaternions`”]
Quaternion[2, 1, 1, 3] ** Quaternion[2, 1, 1, 0] ** Quaternion[1, 1, 1, 1]

Quaternion[-12, 4, 14, 2]

Or you can do this