In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,10])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},CenterArray[Table[2,20],60],200],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,20])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},CenterArray[Table[2,20],60],200],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,20])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},CenterArray[Table[2,20],60],1000],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,10])&/@CellularAutomaton[30,CenterArray[Table[1,20],60],200],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,10])&/@CellularAutomaton[30,CenterArray[Table[1,20],60],2000],2,1]]
Out[]=
In[]:=
Graph3D[%]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,10])&/@CellularAutomaton[30,RandomInteger[1,60],2000],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,10])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},RandomSample[CenterArray[Table[2,20],60]],800],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,5])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},RandomSample[CenterArray[Table[2,20],60]],800],2,1]]
Out[]=
In[]:=
Graph[Rule@@@Partition[(Total/@Partition[#,5])&/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},RandomSample[CenterArray[Table[2,20],60]],5000],2,1]]
Out[]=