InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture[#,{{0,0,0},{0,0,0}},200]#&,{{{1,1,2},{3,4,1}}{{3,3,5},{5,4,1},{1,5,2}},​​{{1,1,2},{3,4,1}}{{3,3,5},{2,5,1},{2,6,5}},​​{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,2},{3,4,2}},​​{{1,2,2},{1,3,4}}{{4,5,5},{5,3,2},{1,2,5}},​​{{1,2,2},{3,1,4}}{{2,3,2},{3,4,4},{2,4,5}},​​{{1,2,1},{3,1,4}}{{4,1,4},{1,5,3},{5,2,3}},​​{{1,2,1},{3,2,4}}{{4,5,4},{5,2,4},{5,1,5}},{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},​​{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}}}]]
In[]:=
Out[]=
FinalPicture[{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}},{{0,0,0},{0,0,0}},300]
In[]:=
Out[]=
WolframModel[{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}},{{0,0,0},{0,0,0}},300,"StatesList"]//Length
In[]:=
301
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[WolframModel[#,{{0,0,0},{0,0,0}},100,"CausalGraph"]#&,{{{1,1,2},{3,4,1}}{{3,3,5},{5,4,1},{1,5,2}},​​{{1,1,2},{3,4,1}}{{3,3,5},{2,5,1},{2,6,5}},​​{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,2},{3,4,2}},​​{{1,2,2},{1,3,4}}{{4,5,5},{5,3,2},{1,2,5}},​​{{1,2,2},{3,1,4}}{{2,3,2},{3,4,4},{2,4,5}},​​{{1,2,1},{3,1,4}}{{4,1,4},{1,5,3},{5,2,3}},​​{{1,2,1},{3,2,4}}{{4,5,4},{5,2,4},{5,1,5}},{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},​​{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}}}]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[Graph3D[HypergraphToGraph[WolframModel[#,{{0,0,0},{0,0,0}},150,"FinalState"]]]#&,{{{1,1,2},{3,4,1}}{{3,3,5},{5,4,1},{1,5,2}},​​{{1,1,2},{3,4,1}}{{3,3,5},{2,5,1},{2,6,5}},​​{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,2},{3,4,2}},​​{{1,2,2},{1,3,4}}{{4,5,5},{5,3,2},{1,2,5}},​​{{1,2,2},{3,1,4}}{{2,3,2},{3,4,4},{2,4,5}},​​{{1,2,1},{3,1,4}}{{4,1,4},{1,5,3},{5,2,3}},​​{{1,2,1},{3,2,4}}{{4,5,4},{5,2,4},{5,1,5}},{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},​​{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}}}]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[WolframModel[#,{{0,0,0},{0,0,0}},100,"LayeredCausalGraph"]#&,{{{1,1,2},{3,4,1}}{{3,3,5},{5,4,1},{1,5,2}},​​{{1,1,2},{3,4,1}}{{3,3,5},{2,5,1},{2,6,5}},​​{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,2},{3,4,2}},​​{{1,2,2},{1,3,4}}{{4,5,5},{5,3,2},{1,2,5}},​​{{1,2,2},{3,1,4}}{{2,3,2},{3,4,4},{2,4,5}},​​{{1,2,1},{3,1,4}}{{4,1,4},{1,5,3},{5,2,3}},​​{{1,2,1},{3,2,4}}{{4,5,4},{5,2,4},{5,1,5}},{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},​​{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}}}]]
In[]:=
Out[]=

Additional self loop

InteractiveListSelectorSW[ParallelMapMonitored[FinalPicture[#,{{0,0,0},{0,0,0},{0,0,0}},100]#&,{{{1,1,2},{3,4,1}}{{3,3,5},{5,4,1},{1,5,2}},​​{{1,1,2},{3,4,1}}{{3,3,5},{2,5,1},{2,6,5}},​​{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,2},{3,4,2}},​​{{1,2,2},{1,3,4}}{{4,5,5},{5,3,2},{1,2,5}},​​{{1,2,2},{3,1,4}}{{2,3,2},{3,4,4},{2,4,5}},​​{{1,2,1},{3,1,4}}{{4,1,4},{1,5,3},{5,2,3}},​​{{1,2,1},{3,2,4}}{{4,5,4},{5,2,4},{5,1,5}},{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},​​{{1,2,2},{3,2,4}}{{5,3,3},{5,2,1},{4,5,2}}}]]
In[]:=
Out[]=