In[]:=
ggpf[t_Integer][rule_]:=Labeled[ResourceFunction["WolframModel"][rule,Automatic,t,{"LayeredCausalGraph","FinalStatePlot"}],rule]
Tree like and subuninverses
Tree like and subuninverses
In[]:=
ggpf[12]/@{{{1,2},{2,3}}{{1,4},{1,3},{4,2}},{{1,2},{2,3}}{{3,3},{4,3},{4,1}},{{1,2},{2,3}}{{3,3},{4,1},{4,2}},{{1,2},{2,3}}{{3,4},{3,4},{2,1}}}
Out[]=
Black hole and rest of universe
Black hole and rest of universe
In[]:=
ggpf[12]/@{{{1,1},{1,2}}{{2,2},{2,3},{1,2}},{{1,2},{1,3}}{{1,2},{1,3},{2,4}},{{1,2},{1,3}}{{1,2},{2,4},{3,4}},{{1,2},{2,3}}{{4,1},{4,3},{1,2}},{{1,2},{3,2}}{{4,5},{4,1},{5,3}}}
Out[]=
Multiple separate pieces
Multiple separate pieces
In[]:=
ggpf[10]/@{{{1,2},{2,3}}{{3,4},{4,5},{5,1}},{{1,2},{1,3}}{{4,4},{4,2},{3,3}},{{1,2},{2,3}}{{4,1},{1,4},{4,2}},{{1,2},{2,3}}{{4,1},{4,2},{1,2}},{{1,2},{3,2}}{{2,4},{4,1},{5,4}}}
Out[]=
In[]:=
ggpf[10]/@{{{1,2},{1,3}}{{4,2},{2,4},{4,1}}}
Out[]=
In[]:=
ggpf[10]/@{{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{2,3}}{{3,4},{4,2},{2,1}},{{1,2},{2,3}}{{4,2},{2,1},{1,3}}}
Out[]=
Two black holes
Two black holes
In[]:=
ggpf[14]/@{{{1,2},{2,3}}{{3,4},{3,2},{1,4}}}
Out[]=
Black hole + nested
Black hole + nested
Black hole + subuniverse
Black hole + subuniverse
Nested black holes
Nested black holes
? Nested black holes
? Nested black holes