WOLFRAM NOTEBOOK

Out[]=
In[]:=
TotalisticAggregationMultiwayGraph[​​{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},2]
Out[]=
In[]:=
Graph[AddVertexArrayPlots[Range[4]][TotalisticAggregationMultiwayGraph[​​{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},5,"Canonicalize"->True]],AspectRatio->1/3,VertexSize->1.8,GraphLayout->"LayeredDigraphEmbedding"]
Out[]=
In[]:=
Graph[AddVertexArrayPlots[Range[4]][TotalisticAggregationMultiwayGraph[​​{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},2]],AspectRatio->1/4,VertexSize->1.5]
In[]:=
Graph[AddVertexArrayPlots[Range[4]][TotalisticAggregationMultiwayGraph[​​{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},2],ColorRules->$GrowthColors],AspectRatio->1/4,VertexSize->1.5]
Out[]=
In[]:=
TotalisticAggregationMultiwayGraph[​​{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},4]
Out[]=
In[]:=
Length/@ResourceFunction["VertexStratify"][%]
Out[]=
{1,4,18,76,315}
In[]:=
With[{g1=TotalisticAggregationMultiwayGraph[{Range[4],Join[IdentityMatrix[2],-IdentityMatrix[2]]},{{0,0}},2]},KeyValueMap[Labeled[AggregationArrayPlot[Range[4]][#1],#2]&,Counts[CanonicalizeGrowthData/@VertexList[g1]]]]
Out[]=
1
,
4
,
6
,
12

Constrained Case

{3}

initial conditions:

8 Neighbors

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.