Representación gráfica de autómatas celulares
Comenzando desde un solo cuadrado negro, represente gráficamente la evolución de una regla 30 de autómata celular de 100 pasos, incluya una leyenda mostrando el ícono de la regla.
In[1]:=
RulePlot[CellularAutomaton[30], {{1}, 0}, 100, PlotLegends -> "Icon",
ImageSize -> 400]Out[1]=
