Neighbor-Independent Illustration
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
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[]=