Tracez des automates cellulaires

À partir d'un simple carré noir, tracez l'évolution de la règle 30 de l'automate cellulaire élémentaire pour 100 étapes, et incluez une légende montrant l'icône de la règle.

In[1]:=

RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon", ImageSize -> 400]

Out[1]=