In[]:=
TMMultispace[rule_,t_,opts___]:=With[{g=ResourceFunction["MultiwayTuringMachine"][rule,{{1,t+1,0},Table[0,2t+1]},t,"StatesGraphStructure"]},Graph3D[g,VertexCoordinates->MapThread[Insert[#1,#2,2]&,{GraphEmbedding[g,"LayeredDigraphEmbedding",2],ToExpression[#][[1,2]]&/@VertexList[g]}],opts]]
In[]:=
TMMultispace[{{{1,1}{2,0,-1}},{{1,0}{2,1,1}},{{1,0}{2,0,-1}},{{2,1}{1,0,1}},{{2,0}{1,1,-1}}},6]
Out[]=
In[]:=
TMMultispace[{{{1,1}{2,0,-1}},{{1,0}{2,1,1}},{{1,0}{2,0,-1}},{{2,1}{1,0,1}},{{2,0}{1,1,-1}}},15,BoxRatios{1,1,2},BoxedTrue]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][ResourceFunction["ParallelMapMonitored"][TMMultispace[#,5]#&,Select[Subsets[List/@TMRuleCases[2,1],{2}],Not@*TestDeterministic]]]
Out[]=

Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add

Clear
Copy