In[]:=
UndirectedGraph[HypergraphToGraph[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p4r,p4y,p1y},{p2g,p5y,p5g},{p6r,p6y,p2y},{p3y,p6y},{p3g,p4r},{p4r,p3g},{p4y,p5y},{p5y,p4y},{p5g,p6r},{p6r,p5g},{p6y,p3y}},init,17,"FinalState"]]]
Out[]=
In[]:=
GraphEmbedding[%,"SpringElectricalEmbedding",3];
In[]:=
ResourceFunction["NonConvexHullMesh"][%,5]
Out[]=
In[]:=
UndirectedGraph[HypergraphToGraph[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p4r,p4y,p1y},{p2g,p5y,p5g},{p6r,p6y,p2y},{p3y,p6y},{p3g,p4r},{p4r,p3g},{p4y,p5y},{p5y,p4y},{p5g,p6r},{p6r,p5g},{p6y,p3y}},init,20,"FinalState"]]];
In[]:=
GraphEmbedding[%,"SpringElectricalEmbedding",3];
In[]:=
ResourceFunction["NonConvexHullMesh"][%,5]
Out[]=
In[]:=
ResourceFunction["NonConvexHullMesh"][%%,10]
Out[]=
In[]:=
LatticeGraph[roots_,n_,dim_:2]:=NestGraph[(Function[r,v[First[#]+r]]/@roots)&,v[Table[0,dim]],n]
In[]:=
LatticeGraph[LatticeData["SimpleCubic"]//Normal,8,3]
Out[]=
In[]:=
LatticeGraph[LatticeData["FaceCenteredCubic"]//Normal,8,3]//GraphPlot3D
Out[]=
Sphere
Sphere