New in Wolfram Mathematica 7: Finite Group Theory  previous | next 
Display the Multiplication Table for a Finite Group
The multiplication table of the quaternion group.
In[1]:=

Click for copyable input
Text[TraditionalForm[

  Grid[FiniteGroupData["Quaternion", "MultiplicationTable"], 

   Frame -> All]]]
Out[1]=