In[]:=
allrules12=EnumerateWolframModelRules[{{1,2}}{{2,2}}];
In[]:=
lens=ParallelMapMonitored[(Length[WeaklyConnectedComponents[Graph[Rule@@@#]]]&/@WolframModel[#,{{0,0}},8,"StatesList"])&,allrules12];
In[]:=
Take[lens,3]
Out[]=
{{1,1,1,1,1,1,1,1,1},{1,1,1,1,1,1,1,1,1},{1,1,1,1,1,1,1,1,1}}
In[]:=
Select[allrules12,!ConnectedHypergraphQ[WolframModel[#,{{0,0}},4,"FinalState"]]&]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{0,0}},4,"StatesGraphStructure"]#&,%]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[WolframModel[#],{{0,0}},5,"StatesGraphStructure"]#&,%408]]
Out[]=
In[]:=
LayeredGraphPlot[MultiwaySystem[WolframModel[{{1,2}}{{3,3},{2,3}}],{{0,0}},6,"StatesGraphStructure"],AspectRatio1/2]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[MultiwaySystem[WolframModel[#],{{0,0}},7,"StatesGraphStructure"],5]#&,%408]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[MultiwaySystem[WolframModel[#],{{0,0}},6,"StatesGraphStructure"],5]#&,%408]]
Out[]=
1,2 -> 3,2
1,2 -> 3,2
In[]:=
allrules13=EnumerateWolframModelRules[{{1,2}}{{3,2}}];
In[]:=
d13=Select[allrules13,!ConnectedHypergraphQ[WolframModel[#,{{0,0}},4,"FinalState"]]&];
In[]:=
Length[d13]
Out[]=
242
In[]:=
InteractiveListSelectorSW[First/@GatherBy[ParallelMapMonitored[TimeConstrained[MultiwaySystem[WolframModel[#],{{0,0}},4,"StatesGraphStructure"],5]#&,d13],First]]
Out[]=