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}