In[]:=
SeedRandom[42422];GraphicsGrid[Partition[GraphPlot[Rule@@@#,GraphLayout->"SpringElectricalEmbedding"]&/@DeleteDuplicates[Select[ParallelMapMonitored[WolframModel[#,{{0,0},{0,0}},8,"FinalState"]&,rules],Length[#]>10&&ResourceFunction["ConnectedHypergraphQ"][#]&]],UpTo[14]],ImageSizeFull]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},15,"CausalGraph"]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},16,"FinalState"]]
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},18,"FinalState"]]
Out[]=
In[]:=
ConnectedGraphQ[%]