WOLFRAM NOTEBOOK

Neighbor-Independent Illustration

In[]:=
data=NestList[Flatten[#]/.{"A"{"A","B"},"B"{"A"}}&,{{"A"}},4]
Out[]=
{{{A}},{{A,B}},{{A,B},{A}},{{A,B},{A},{A,B}},{{A,B},{A},{A,B},{A,B},{A}}}
In[]:=
Graphics[MapIndexed[Text[Framed[#,BackgroundOpacity[.2,Gray]],{#2+.2#3,-#1}&@@#2]&,data,{3}]]
Out[]=

​

Length-Preserving Rules

In[]:=
rules22=Catenate[Outer[Rule,Tuples[{1,0},2],Tuples[{1,0},2],1]]
Out[]=
In[]:=
ParallelMapMonitored[Labeled[TimeConstrained[MultiwaySystem[{#},{{0,1,1,0,1,0,0}},7,"StatesGraph","StateRenderingFunction"None],5],#]&,rules22]
Out[]=
In[]:=
ParallelMapMonitored[Labeled[TimeConstrained[MultiwaySystem[#,{{0,1,1,0,1,0,0}},7,"StatesGraph","StateRenderingFunction"None],5],#]&,Tuples[rules22,2]]
Out[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.