New in Wolfram Mathematica 7: Finite Group Theory ◄ previous | next ►
Crystallographic Point Groups
Properties of crystallographic point groups.
In[1]:=

Click for copyable input
Grid[{#[[1, 1]], Row[Riffle[#[[All, -1]], ","]]} & /@ 

  GatherBy[Table[{FiniteGroupData[{"CrystallographicPointGroup", n}, 

      "CrystalSystem"], 

     FiniteGroupData[{"CrystallographicPointGroup", n}, 

      "Schoenflies"]}, {n, 1, 32}], First], 

 Alignment -> {Left, Baseline}, Frame -> All, Spacings -> {1, 1}]
Out[1]=