New in Wolfram
Mathematica
8: Group Theory Algorithms
◄
previous
|
next
►
Core Algorithms
Points moved by increasing permutations in a group
Array representation of the images of {1,...,n} under increasing elements of a permutation group.
In[1]:=
X
With[{base = 17, n = 100}, ArrayPlot[ PermutationReplace[Range[n], GroupElements[AlternatingGroup[n], Table[base^i, {i, 0, Log[base, n!/2]}]]] , ColorFunction -> "RedBlueTones"] ]
Out[1]=