In[]:=
ParallelMap[Function[rr,Labeled[(growData3=RandomTotalisticAggregation[​​{rr,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,200];final3=AggregationArrayData[rr][​​{Last[growData3]}];ArrayPlot3D[Last[final3]]),rr]],Subsets[Range[2,6]]]
In[]:=
ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{{2},Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,200]]]]
Out[]=
ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{{2},Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,200]]]]
In[]:=
ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{Range[6],Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​Position[CrossMatrix[{1,1,1}],1]-2,1000]]]]
Out[]=
In[]:=
With[{rr={2}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{rr,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​{{0,0,0},{0,0,1}},1000]]]]]
Out[]=
In[]:=
With[{rr={2}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{rr,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​{{0,0,0},{0,1,1}},1000]]]]]
Out[]=
In[]:=
With[{rr={2}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234];RandomTotalisticAggregation[​​{rr,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​{{0,0,0},{0,1,1},{1,0,0}},1000]]]]]
Out[]=
In[]:=
Table[With[{rr={2}},ArrayPlot3D[AggregationArrayData[rr][​​Last[SeedRandom[3234+i];RandomTotalisticAggregation[​​{rr,Join[IdentityMatrix[3],-IdentityMatrix[3]]},​​RandomSample[Tuples[Range[3],3],5],1000]]]]],{i,10}]
Out[]=

,
,
,
,
,
,
,
,
,


26 neighbors

1D

Polyomino clusters