{{2,3}}, 4 symbols
{{2,3}}, 4 symbols
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},5,"FinalState"],ImageSizeTiny],AppendTo[list,#]]&,RuleShapeListToCases[{{2,3}},4]]
Out[]=
In[]:=
list
Out[]=
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},8,"FinalState"]],AppendTo[list,#]]&,list]
Out[]=
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},10,"FinalState"]],AppendTo[list,#]]&,list]
Out[]=
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},14,"FinalState"]],AppendTo[list,#]]&,list]
Out[]=
In[]:=
list
Out[]=
In[]:=
ParallelMapMonitored[Button[HypergraphPlot[WolframModel[#,{{0,0},{0,0}},20,"FinalState"]],AppendTo[list,#]]&,list]
Out[]=
In[]:=
ParallelMapMonitored[(HypergraphPlot/@WolframModel[#,{{0,0},{0,0}},15,"StatesList"])&,list]
Out[]=
{{2,4}}, 2 symbols
{{2,4}}, 2 symbols