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[]:=
<<SetReplace`
In[]:=
GraphPlot3D[ResourceFunction["HypergraphToGraph"][WolframModel[{{1,2,3}}{{4,5,3},{2,3,5},{6,5,1}},{{0,0,0}},6,"FinalState"]]]
Out[]=
In[]:=
GraphPlot3D[ResourceFunction["HypergraphToGraph"][WolframModel[{{1,2,3}}{{4,3,2},{2,3,5},{6,5,3}},{{0,0,0}},6,"FinalState"]]]
Out[]=
In[]:=
GraphPlot3D[ResourceFunction["HypergraphToGraph"][WolframModel[{{1,2,3},{1,4}}{{4,3,1},{1,2,5},{3,6},{6,1}},{{0,0,0},{0,0}},25,"FinalState"]]]
Out[]=