In[]:=
newrules={{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,11},{8,10},{9,13},{12,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,13},{9,12},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,13},{9,12},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,11},{8,10},{9,13},{12,14}},{{1,2,3},{4,5,6},{2,5}}{{7,1,8},{9,3,10},{11,4,12},{13,6,14},{7,13},{8,10},{9,11},{12,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,12},{9,13},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,11},{8,14},{9,13},{10,12}},{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,14},{8,11},{9,12},{10,13}}};
In[]:=
newrules[[-4]]
Out[]=
{{1,2,3},{4,5,6},{2,5}}{{7,1,8},{9,3,10},{11,4,12},{13,6,14},{7,13},{8,10},{9,11},{12,14}}
In[]:=
RulePlot[WolframModel[%]]
Out[]=
In[]:=
HypergraphPlot@WolframModel[{{1,2,3},{4,5,6},{2,5}}{{7,1,8},{9,3,10},{11,4,12},{13,6,14},{7,13},{8,10},{9,11},{12,14}},Join[Table[0,3,2],Table[0,2,3]],6,"FinalState"]
Out[]=
In[]:=
HypergraphToGraph[WolframModel[{{1,2,3},{4,5,6},{2,5}}{{7,1,8},{9,3,10},{11,4,12},{13,6,14},{7,13},{8,10},{9,11},{12,14}},Join[Table[0,3,2],Table[0,2,3]],6,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[%]
Out[]=
In[]:=
ResourceFunction["NonConvexHullMesh"]GraphEmbedding
,"SpringElectricalEmbedding",3,.5
Out[]=
In[]:=
ResourceFunction["NonConvexHullMesh"]GraphEmbedding
,"SpringElectricalEmbedding",3,5