Wolfram Cloud Document

In[]:=

HourglassPlot[r1_,r2_,cent_List]:=ArrayPlot[CellularAutomaton[{r1,4,1},CellularAutomaton[{r2,4,1},{cent,0},{{{100}}}],200],ImageSize->{Automatic,300},ColorRules->{0->White,1->Red,2->Blue,3->Green}]

In[]:=

HourglassPlot[r1_,r2_,cent_Integer]:=ArrayPlot[CellularAutomaton[{r1,4,1},CellularAutomaton[{r2,4,1},{ConstantArray[cent,5],0},{{{100}}}],200],ImageSize->{Automatic,300},ColorRules->{0->White,1->Red,2->Blue,3->Green}]

In[]:=

choiceResults=

;

In[]:=

Last[choiceResults]

Out[]=

{116925332984570389854850436681967053316,227302834849186220069334011951332035360}

In[]:=

HourglassPlot[Splice[{116925332984570389854850436681967053316,227302834849186220069334011951332035360},_],2]

Out[]=

In[]:=

HourglassPlot[Splice[{116925332984570389854850436681967053316,227302834849186220069334011951332035360},_],{2,1,0,1,2}]

Out[]=