In[]:=
ParallelEvaluate[$MachineName]
In[]:=
ParallelTable[Table[With[{rr={n}},ArrayPlot3D[AggregationArrayData[rr][Last[SeedRandom[3234+i];RandomTotalisticAggregation[{rr,DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},RandomSample[Tuples[{-1,0,1},3],10],1000]]]]],{i,3}],{n,5}]
Out[]=
In[]:=
ParallelTable[Table[With[{rr={n}},ArrayPlot3D[AggregationArrayData[rr][Last[SeedRandom[3234+i];RandomTotalisticAggregation[{rr,DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},RandomSample[Tuples[{-1,0,1},3],10],1000]]]]],{i,3}],{n,20}]
Out[]=
TotalisticAggregationMultiwayGraph[{ru,{{-1},{1}}},{{0}},3],"Boundary"->False,"Centering"->False,Padding->1,"Square"->False],AspectRatio->1/2,VertexSize->.6,GraphLayout->"LayeredEmbedding"]
In[]:=
TotalisticAggregationMultiwayGraph[{{1},DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},{{0,0,0}},3]
Out[]=
In[]:=
TotalisticAggregationMultiwayGraph[{{1},Join[IdentityMatrix[3],-IdentityMatrix[3]]},{{0,0,0}},2]
Out[]=
In[]:=
TotalisticAggregationMultiwayGraph[{{1},Join[IdentityMatrix[3],-IdentityMatrix[3]]},{{0,0,0}},3]
Out[]=
In[]:=
TotalisticAggregationMultiwayGraph[{{2},DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},{{0,0,0},{0,1,0}},3]
Out[]=
In[]:=
gg3=TotalisticAggregationMultiwayGraph[{{2},DeleteCases[Tuples[{1,0,-1},3],{0,0,0}]},{{0,0,0},{0,1,0}},3];
In[]:=
VertexOutDegree[gg3,#]&/@Catenate[Most[ResourceFunction["VertexStratify"][gg3]]]
Out[]=
In[]:=
Position[%,0]
Out[]=
{}
In[]:=
Graph3D[%]
Out[]=
