Zelluläre Automaten plotten
Plotten Sie ausgehend von einem einzelnen schwarzen Quadrat die Evolution der Regel 30 über 100 Zeitschritte. Erstellen Sie auch eine Legende, die das Zeichen der Regel zeigt.
In[1]:=
RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon",
ImageSize -> 400]Out[1]=
