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
Pure Reduction
Pure Reduction
In[]:=
FixedPointList[StringReplace[{"<><>""<>","<<>>"""}],"<<<><>><<><><>><>>"]
Out[]=
{<<<><>><<><><>><>>,<<<>><<><>><>>,<<<>><>>,<<>>,,}
Multiway Graph
Multiway Graph
In[]:=
ResourceFunction["MultiwaySystem"][{"<><>""<>","<<>>""","<>""<><>","""<<>>"},"",3,"StatesGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"<><>""<>","<<>>""","<>""<><>","""<<>>"},"",3,"StatesGraph",GraphLayout->"LayeredDigraphEmbedding",AspectRatio->1/2]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"<><>""<>","<<>>""","<>""<><>","""<<>>"},"",4,"StatesGraphStructure"]
Out[]=
In[]:=
Graph3D[%]
Out[]=
Sizes
Sizes
In[]:=
Length/@ResourceFunction["MultiwaySystem"][{"<><>""<>","<<>>""","<>""<><>","""<<>>"},"",5]
Out[]=
{1,1,6,34,256,2088}
In[]:=
Ratios[%]//N
Out[]=
{1.,6.,5.66667,7.52941,8.15625}