1,2 3,2
1,2 3,2
In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,1},{3,1},{3,2}},{{0,0}},5,"FinalState"]]
Out[]=
In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,1},{3,1},{3,2}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},3,"FinalState"]]
Out[]=
1,2 4,2
1,2 4,2
Just 3 symbols:
NOTE: this search uses 10 instead of 6 max symbols
1,32,3
1,32,3