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[]=