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[]:=
MultiwaySystem[WolframModel[encodeTMRule[{{2,1}{2,1,1},{2,0}{1,0,1},{2,0}->{2,1,-1},{1,1}{2,1,1},{1,0}{2,0,-1}},0]],encodeTMState[{1,1},{0}],7,"StatesGraph",VertexSize1]//LayeredGraphPlot
Out[]=
In[]:=
MultiwaySystem[WolframModel[encodeTMRule[{{2,1}{2,1,1},{2,0}{1,0,1},{2,0}->{2,1,-1},{1,1}{2,1,1},{1,0}{2,0,-1}},0]],encodeTMState[{1,1},{0}],7,"StatesGraphStructure"]//LayeredGraphPlot
Out[]=
In[]:=
MultiwaySystem[WolframModel[encodeTMRule[{{1,2}{1,1,-1},{1,1}{1,2,-1},{1,0}{2,1,1},{1,0}{2,1,-1},{2,2}{1,0,1},{2,1}{2,2,1},{2,0}{1,2,-1},{2,0}{1,2,1}},0]],encodeTMState[{1,1},{0}],6,"StatesGraph",VertexSize1]
Out[]=
In[]:=
MultiwaySystem[WolframModel[encodeTMRule[{{1,2}{1,1,-1},{1,1}{1,2,-1},{1,0}{2,1,1},{1,0}{2,1,-1},{2,2}{1,0,1},{2,1}{2,2,1},{2,0}{1,2,-1},{2,0}{1,1,-1}},0]],encodeTMState[{1,1},{0}],6,"StatesGraph",VertexSize1]
Out[]=
NDCA
NDCA