In[]:=
BusyBeaver[4]
Out[]=
{{1,1}{2,1,-1},{1,0}{2,1,1},{2,1}{3,0,-1},{2,0}{1,1,-1},{3,1}{4,1,-1},{3,0}{0,1,1},{4,1}{1,0,1},{4,0}{4,1,1}}
In[]:=
RulePlot[TuringMachine[BusyBeaver[4]],{{1},{{},0}},30]
Out[]=
RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,1}{3,0,-1},{2,0}{1,1,-1},{3,1}{4,1,-1},{3,0}{0,1,1},{4,1}{1,0,1},{4,0}{4,1,1}}],{{1},{{},0}},30]
In[]:=
BusyBeaver[3]
Out[]=
{{1,1}{0,1,1},{1,0}{2,1,1},{2,1}{3,0,1},{2,0}{2,1,-1},{3,1}{1,1,-1},{3,0}{3,1,-1}}
In[]:=
TuringMachinePlot[BusyBeaver[3],3,2,"RulePlot"]
Out[]=
Failure

Tag: InvalidRules

In[]:=
TuringMachinePlot[{{1,1}{4,1,1},{1,0}{2,1,1},{2,1}{3,0,1},{2,0}{2,1,-1},{3,1}{1,1,-1},{3,0}{3,1,-1}},4,2,"RulePlot"]
Out[]=
In[]:=
RulePlot[%]
Out[]=
RulePlot[TuringMachine[{{1,1}{2,1,-1},{1,0}{2,1,1},{2,1}{3,0,-1},{2,0}{1,1,-1},{3,1}{4,1,-1},{3,0}{0,1,1},{4,1}{1,0,1},{4,0}{4,1,1}}]]
TuringMachine[
In[]:=
ResourceFunction["TuringMachineFromNumber"][1234]
Out[]=
{{1,1}{1,1,-1},{1,0}{1,1,1},{2,1}{1,1,-1},{2,0}{1,1,-1}}
In[]:=
RulePlot[TuringMachine[%]]
Out[]=
In[]:=
RulePlot[TuringMachine[BusyBeaver[3]],{{1},{{},0}},30]
In[]:=
RulePlot[TuringMachine[{{1,1}{4,1,1},{1,0}{2,1,1},{2,1}{3,0,1},{2,0}{2,1,-1},{3,1}{1,1,-1},{3,0}{3,1,-1},{4,0}{4,0,0},{4,1}{4,1,0}}],{{1},{{},0}},30,MeshTrue,FrameNone]
Out[]=