{{1,2,3,4,5,6,7,8},{2,3,4,5,6,7,8,1},{3,4,5,6,7,8,1,2},{4,5,6,7,8,1,2,3},{5,6,7,8,1,2,3,4},{6,7,8,1,2,3,4,5},{7,8,1,2,3,4,5,6},{8,1,2,3,4,5,6,7}}
Permute
{{1,2,3,4,5,6,7,8},{2,3,4,5,6,7,8,1},{3,4,5,6,7,8,1,2},{4,5,6,7,8,1,2,3},{5,6,7,8,1,2,3,4},{6,7,8,1,2,3,4,5},{7,8,1,2,3,4,5,6},{8,1,2,3,4,5,6,7}}
GroupMultiplicationTable[CyclicGroup[10]]
In[]:=
Out[]=
ListPointPlot3D[%]
In[]:=
Out[]=
ListPointPlot3D[GroupMultiplicationTable[AlternatingGroup[5]],BoxRatiosAutomatic,TicksNone]
In[]:=
Out[]=
PermutationList[#,4]&/@GroupElements[CyclicGroup[4]]
In[]:=
{{1,2,3,4},{2,3,4,1},{3,4,1,2},{4,1,2,3}}
Out[]=
Catenate[MapIndexed[Append[#2,#1]&,GroupMultiplicationTable[AlternatingGroup[5]],{2}]]
In[]:=
Out[]=
Graphics3D[Point[%]]
In[]:=
Out[]=
Graph3D[NearestNeighborGraph[%392,2]]
In[]:=
Out[]=
DimensionReduce[%392,3]
In[]:=
Out[]=
Graphics3D[Point[%]]
In[]:=
Out[]=