You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Color by Dimension...
Color by Dimension...
In[]:=
gg14=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},14,"FinalState"]]
Out[]=
In[]:=
gg12=Graph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},12,"FinalState"]];
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"]
Out[]=
In[]:=
ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]]
Out[]=
In[]:=
Histogram[Values[Length/@ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]]]]
Out[]=
In[]:=
ListLinePlot[Values[ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]]],Filling->Bottom,FillingStyleOpacity[.2]]
Out[]=
$Aborted
In[]:=
ListLinePlot[Take[Values[ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]]],20],Filling->Bottom,FillingStyleOpacity[.2]]
Out[]=
In[]:=
ListLinePlot[RandomSample[Values[ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]]],40],Filling->Bottom,FillingStyleOpacity[.2]]
Out[]=
In[]:=
Histogram[Values[ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]][[All,12]]]]
Out[]=
In[]:=
gg12v12=Values[ResourceFunction["GraphNeighborhoodVolumes"][UndirectedGraph[gg12]][[All,12]]];
In[]:=
Graph[gg12,VertexSizeThread[VertexList[gg12]gg12v12/50],PlotTheme"Default"]
Out[]=
In[]:=
Graph[gg12,VertexSizeThread[VertexList[gg12]gg12v12/80],PlotTheme"Default"]
Out[]=