In[]:=
RulePlot[WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9}}]]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}}->{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9},{5,1},{2,5},{6,2},{3,6},{7,3},{4,7},{8,4},{1,8},{9,8},{9,5},{9,6},{9,7}}]]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}}->{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9},{5,1},{2,5},{6,2},{3,6},{7,3},{4,7},{8,4},{1,8},{9,8},{9,5},{9,6},{9,7}},{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}},4,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#]&@WolframModel[{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}}->{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9},{5,1},{2,5},{6,2},{3,6},{7,3},{4,7},{8,4},{1,8},{9,8},{9,5},{9,6},{9,7}},{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}},6,"FinalState"]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9}}],VertexLabelsAutomatic]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9},{9,7},{9,8},{9,5},{9,6}}],VertexLabelsAutomatic]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,2},{2,6},{6,3},{3,7},{7,4},{4,8},{8,1},{8,9},{5,9},{6,9},{7,9},{9,7},{9,8},{9,5},{9,6}},{{1,2},{2,3},{3,4},{4,1},{2,1},{3,2},{4,3},{1,4}},4,"StatesList"]
Out[]=
In[]:=
GraphPlot3D
The object doesn’t naturally want to identify points, so makes the tree structure.....