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[]:=
Graph[Rule@@@#,GraphLayout->"SpringElectricalEmbedding"]&@WolframModel[{{x,y},{x,z}}{{x,w},{y,w},{z,w}},{{0,0},{0,0}},30,"FinalState","EventOrderingFunction""Random"]
Out[]=
In[]:=
Table[Graph[Rule@@@#,GraphLayout->"SpringElectricalEmbedding"]&@WolframModel[{{x,y},{x,z}}{{x,w},{y,w},{z,w}},{{0,0},{0,0}},30,"FinalState","EventOrderingFunction""Random"],5]
Out[]=
In[]:=
Gather[%,IsomorphicGraphQ]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout->"SpringElectricalEmbedding"]&@WolframModel[{{x,y},{x,z}}{{x,w},{y,w},{z,w}},{{0,0},{0,0}},30,"FinalState"]
Out[]=
In[]:=
{{1,2},{2,3}}{{1,4},{4,3},{3,1}}/.{1x,2y,3z,4w}
Out[]=
{{x,y},{y,z}}{{x,w},{w,z},{z,x}}
In[]:=
RulePlot[WolframModel[{{x,y},{y,z}}{{x,w},{w,z},{z,x}}]]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",ImageSizeTiny]&/@WolframModel[{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},16,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},20,"StatesList"];
In[]:=
ConnectedGraphQ[UndirectedGraph[#]]&/@%
Out[]=
{True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True,True}
In[]:=
Last[%135]
Out[]=