Wolfram 언어™

셀룰러 오토마타 플롯

한개의 검은 사각형으로부터 시작하여 기본 셀룰러 오토마타 규칙 30의 100단계 진화를 플롯하고 규칙 아이콘을 나타내는 범례를 넣습니다.

In[1]:=

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

Out[1]=