Tracez des machines de Turing

Tracez l'évolution et l'icône de règle d'une machine de Turing partant d'une bande vierge pour 10 étapes.

In[1]:=

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

Out[1]=