You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Group Theory
Group Theory
L^n = R^n = 1
R L = L R = 1
Lp ^ (k n) = Rp ^ (k n) = 1
Lp R Lp R = Rp L Rp L = 1
L = TM moves left with changing the symbol
Lp = moves left “permuting” the symbol (e.g. 1 <-> 0), but for larger k (= # colors) probably needs to be a generator of symmetric group
R L = L R = 1
Lp ^ (k n) = Rp ^ (k n) = 1
Lp R Lp R = Rp L Rp L = 1
L = TM moves left with changing the symbol
Lp = moves left “permuting” the symbol (e.g. 1 <-> 0), but for larger k (= # colors) probably needs to be a generator of symmetric group
In[]:=
TMNCGraph[1,{1,2}]
Out[]=
In[]:=
TMNCGraphX[1,{1,2}]
Out[]=
In[]:=
SimpleGraph[TMNCGraph[2,{1,2}]]
Out[]=
In[]:=
Graph3D[TMNCGraph[2,{1,2}]]
Out[]=
In[]:=
FiniteGroupData[8]
Out[]=
{{CyclicGroup,8},{AbelianGroup,{4,2}},{AbelianGroup,{2,2,2}},{DihedralGroup,4},Quaternion}
In[]:=
FiniteGroupData[#,"CayleyGraph"]&/@%
Out[]=
,
,
,
,
In[]:=
TMNCGraph[3,{1,2}]
Out[]=
In[]:=
TMNCGraph[4,{1,2}]
Out[]=