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"]]]
In[]:=
Out[]=
GraphEmbedding[%,"SpringElectricalEmbedding",3];
In[]:=
ResourceFunction["NonConvexHullMesh"][%,5]
In[]:=
Out[]=
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]
In[]:=
Out[]=
ResourceFunction["NonConvexHullMesh"][%%,10]
In[]:=
Out[]=
LatticeGraph[roots_,n_,dim_:2]:=NestGraph[(Function[r,v[First[#]+r]]/@roots)&,v[Table[0,dim]],n]
In[]:=
LatticeGraph[LatticeData["SimpleCubic"]//Normal,8,3]
In[]:=
Out[]=
LatticeGraph[LatticeData["FaceCenteredCubic"]//Normal,8,3]//GraphPlot3D
In[]:=
Out[]=
Sphere
Sphere
MeshConnectivityGraph[DiscretizeRegion[Sphere[]],2]
In[]:=
Out[]=
GraphPlot3D[%]
In[]:=
Out[]=
RandomChoice[VertexList[%224]]
In[]:=
{2,1572}
Out[]=
HighlightGraph[%224,NeighborhoodGraph[%224,%,10]]
In[]:=
Out[]=
HighlightGraph[%224,NeighborhoodGraph[%224,%236,20]]
In[]:=
Out[]=
MeshConnectivityGraph[DiscretizeRegion[Sphere[],MaxCellMeasure0.0001],2]
In[]:=
Out[]=
HighlightGraph[%244,NeighborhoodGraph[%244,RandomChoice[VertexList[%244]],20]]
In[]:=
Out[]=
GraphPlot3D[%]
In[]:=
Out[]=
With[{g=TorusGraph[{50,50}]},HighlightGraph[g,NeighborhoodGraph[g,RandomChoice[VertexList[g]],5]]]
In[]:=
Out[]=
With[{g=TorusGraph[{50,50}]},HighlightGraph[g,NeighborhoodGraph[g,RandomChoice[VertexList[g]],30]]]
In[]:=
Out[]=
Dims[RandVols[TorusGraph[{50,50}],500]]
In[]:=
Out[]=
Sphere[]//Graphics3D
In[]:=
Out[]=