Wolfram 언어™

튜링 기계 플롯

빈 테이프에서 시작한 튜링 기계의 10단계의 진화와 규칙 아이콘을 플롯합니다.

In[1]:=

RulePlot[TuringMachine[2506], {1, {{}, 0}}, 10, PlotLegends -> "Icon", ImageSize -> 300]

Out[1]=