Faça uma representação gráfica de autômatos celulares
Começando de um único quadrado preto, faça a representação gráfica da evolução de uma regra 30 de autômato celular de 100 passos, e inclua uma legenda que mostre o ícone da regra.
In[1]:=
RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon",
ImageSize -> 400]Out[1]=
