Computed Functions
Computed Functions
In[]:=
TMFixer[Flatten@{{{1,1}{2,1,-1}},{{1,0}{2,1,1}},{{2,0}{1,1,-1}}},2,2]
Out[]=
{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}
In[]:=
Table[RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{1},{IntegerDigits[n,2],0}},30],{n,10}]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[Table[RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{m},{IntegerDigits[n,2,6],0}},30],{n,10}],{m,3}]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,{RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,0,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,0,1,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,0,1,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,1,0,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,1,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,1,1,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,0,1,1,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,1,0,0,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,1,0,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,0}{1,1,-1},{2,1}{2,1,0}}],{{3},{{0,0,1,0,1,0},0}},30]}
In[]:=
Table[RulePlot[TuringMachine[Flatten@{{{1,1}{2,1,-1}},{{2,1}{1,1,1}},{{1,0}{2,1,1}},{{2,0}{1,1,-1}}}],{{1},{IntegerDigits[n,2],0}},30],{n,10}]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[Table[RulePlot[TuringMachine[Flatten@{{{1,1}{2,1,-1}},{{2,1}{1,1,1}},{{1,0}{2,1,1}},{{2,0}{1,1,-1}}}],{{m},{IntegerDigits[n,2,6],0}},30],{n,10}],{m,3}]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,{RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,0,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,0,1,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,0,1,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,1,0,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,1,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,1,1,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,0,1,1,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,1,0,0,0},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,1,0,0,1},0}},30],RulePlot[TuringMachine[{{1,1}{2,1,-1},{2,1}{1,1,1},{1,0}{2,1,1},{2,0}{1,1,-1}}],{{3},{{0,0,1,0,1,0},0}},30]}
In[]:=
Table[Table[RulePlot[TuringMachine[TMFixer[{{2,1}{1,0,-1},{1,0}{3,1,1},{2,0}{2,1,-1},{3,0}{2,0,1}},3,2]],{{m},{IntegerDigits[n,2,6],0}},30],{n,10}],{m,3}]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
