You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
ResourceFunction["MultispacePlot3D"][ResourceFunction["MultiwayTuringMachine"][{1507,2506,3506},{{1,1,0},{0,1,0,1}},4,##]&,"Graph"]
Out[]=
In[]:=
ResourceFunction["MultispacePlot3D"][ResourceFunction["MultiwaySystem"][{"A""AB","B""A"},{"A"},6,##]&,"Graph"]
Out[]=
In[]:=
Show[%17,AspectRatio1/2]
Out[]=
In[]:=
ResourceFunction["MultispacePlot3D"][ResourceFunction["MultiwaySystem"]["WolframModel"{{{x,y},{z,y}}{{x,w},{y,w},{z,w}}},{{{0,0},{0,0}}},4,##]&,"Graph"]
Out[]=
In[]:=
ResourceFunction["MultispacePlot3D"][ResourceFunction["MultiwaySystem"]["WolframModel"{{{x,y},{z,y}}{{x,w},{y,w},{z,w}}},{{{0,0},{0,0}}},7,##]&,"Graph"]
Out[]=
$Aborted