Wolfram
Mathematica
8의 신기능: 그룹 이론 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
군의 순열 증가에 따른 포인트 이동
순열 군의 요소 증가에 따른 {1, ..., n}의 이미지 배열 표현 입니다.
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]=
