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
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},2]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},2,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{{{0,0},{0,0}}},5,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{ConstantArray[0,{3,3}]},2,"TokenRenderingFunction"->(ArrayPlot[#,Mesh->True,ImageSize->20]&)]
Out[]=
In[]:=
TokenEventGraph[{{x_}:>(ReplacePart[x,#->1]&/@Position[x,0])},{ConstantArray[0,{3,3}]},10,"TokenLabeling"->None,AspectRatio->1/2]
Out[]=