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