New in Wolfram
Mathematica
8: Algoritmos de teoría de grupos
◄
previous
|
next
►
Algoritmos de núcleo
Puntos movidos al aumentar permutaciones en un grupo
Representación de arreglo de las imágenes de {1,...,n} aumentado elementos de un grupo de permutaciones.
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]=