In[]:=
HypergraphPlot[WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},800,"FinalState"]]
Out[]=
In[]:=
2^(rLog[r])
Out[]=
rLog[r]
2
In[]:=
Plot[{r^2,2^(rLog[r]),r^Sqrt[r],2^r},{r,0,5}]
Out[]=
In[]:=
AsymptoticLess[r^Sqrt[r],2^(rLog[r]),r->Infinity]
Out[]=
True
In[]:=
AsymptoticLess[r,2^(rLog[r]),r->Infinity]
Out[]=
True
In[]:=
AsymptoticLess[2^r,2^(rLog[r]),r->Infinity]
Out[]=
True
In[]:=
Asymptotic[r^Sqrt[r]/2^(rLog[r]),{r,Infinity,2}]
Out[]=
-rLog[r]
2
r
r
In[]:=
Plot[%,{r,0,10}]
Out[]=
In[]:=
Asymptotic[2^(rLog[r]),{r,Infinity,2}]
Out[]=
rLog[r]
2
In[]:=
NeighborhoodGraph[IndexGraph[TorusGraph[{20,20}]],{1},2]
Out[]=
In[]:=
gr=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]]
Out[]=
In[]:=
With[{gr=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]]},ReverseSortBy[(Graph[First[#],GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic,ImageSize30]->Length[#])&/@Gather[NeighborhoodGraph[gr,#,1]&/@VertexList[gr],IsomorphicGraphQ],Last]]
Out[]=
In[]:=
With[{gr=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},11,"FinalState"]]},ReverseSortBy[(Graph[First[#],GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic,ImageSize30]->Length[#])&/@Gather[NeighborhoodGraph[gr,#,1]&/@VertexList[gr],IsomorphicGraphQ],Last]]
Out[]=
In[]:=
With[{gr=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},12,"FinalState"]]},ReverseSortBy[(Graph[First[#],GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic,ImageSize30]->Length[#])&/@Gather[NeighborhoodGraph[gr,#,1]&/@VertexList[gr],IsomorphicGraphQ],Last]]
Out[]=
In[]:=
With[{gr=UndirectedGraph[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"]]},ReverseSortBy[(Graph[CanonicalGraph[First[#]],GraphLayout"SpringElectricalEmbedding",VertexCoordinatesAutomatic,ImageSize30]->Length[#])&/@Gather[NeighborhoodGraph[gr,#,1]&/@VertexList[gr],IsomorphicGraphQ],Last]]
Out[]=