In[]:=
Table[PermutationPower[{1,3,5,2,7,4,8,6},n],{n,1,7}]
Out[]=
{{1,3,5,2,7,4,8,6},{1,5,7,3,8,2,6,4},{1,7,8,5,6,3,4,2},{1,8,6,7,4,5,2,3},{1,6,4,8,2,7,3,5},{1,4,2,6,3,8,5,7},{1,2,3,4,5,6,7,8}}
In[]:=
Partition[#,2]&/@%
Out[]=
In[]:=
Catenate[%]
Out[]=
In[]:=
Length[%]
Out[]=
28
In[]:=
Binomial[8,2]
Out[]=
28
In[]:=
WolframModel[{{1,2},{3,4},{5,6},{7,8}}{{1,3},{5,2},{7,4},{8,6}},{{1,2},{3,4},{5,6},{7,8}},8,"StatesList"]
Out[]=
In[]:=
WolframModel[{{1,2},{3,4},{5,6},{7,8}}{{1,3},{5,2},{7,4},{8,6}},Table[0,4,2],4,"StatesList"]
Out[]=
In[]:=
WolframModel[{{1,2},{3,4},{5,6},{7,8}}{{1,3},{5,2},{7,4},{8,6}},{{0,0},{0,1},{0,0},{0,0}},8,"StatesList"]
Out[]=
In[]:=
ArrayPlot[Flatten/@%]
Out[]=
In[]:=
WolframModel[{{1,2},{3,4},{5,6},{7,8}}{{1,3},{5,2},{7,4},{8,6}},{{1,2},{0,0},{0,0},{0,0}},8,"StatesList"]
Out[]=
In[]:=
ArrayPlot[Flatten/@%]
Out[]=