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[]:=
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[]:=
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}},{{1,2},{2,3},{3,4},{4,1}},4,"StatesList"]
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},{9,8},{5,9},{9,6},{7,9}},{{1,2},{2,3},{3,4},{4,1}},4,"StatesList"]
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},{9,8},{5,9},{9,6},{7,9}},{{1,2},{2,3},{3,4},{4,1}},8,"StatesList"]
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},{9,8},{9,5},{9,6},{7,9}},{{1,2},{2,3},{3,4},{4,1}},15,"StatesList"]
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},{9,8},{9,5},{9,6},{7,9}},{{1,2},{2,3},{3,4},{4,1}},30,"FinalState"]
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},{9,8},{9,5},{9,6},{9,7}},{{1,2},{2,3},{3,4},{4,1}},6,"StatesList"]
Out[]=
,
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,2},{2,6},{6,3},{7,3},{7,4},{4,8},{8,1},{9,8},{9,5},{9,6},{7,9}},{{1,2},{2,3},{3,4},{4,1}},15,"StatesList"]
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},{9,8},{9,5},{9,6},{9,7},{8,9},{5,9},{6,9},{7,9}},{{1,2},{2,3},{3,4},{4,1}},3,"StatesList"]
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},{9,8},{9,5},{9,6},{9,7},{8,9},{5,9},{6,9},{7,9}},{{1,2},{2,3},{3,4},{4,1}},4,"StatesList"]
Out[]=
Triangles
Triangles
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3},{3,1}}{{1,4},{4,2},{2,5},{5,3},{3,1},{4,5}},{{1,2},{2,3},{3,1}},4,"StatesList"]
Out[]=
,
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3},{3,1}}{{1,4},{4,2},{2,5},{5,3},{3,1},{4,5},{5,4}},{{1,2},{2,3},{3,1}},4,"StatesList"]