WOLFRAM NOTEBOOK

In[]:=
ggpf[t_Integer][rule_]:=Labeled[ResourceFunction["WolframModel"][rule,Automatic,t,{"LayeredCausalGraph","FinalStatePlot"}],rule]

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

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

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

In[]:=
ggpf[14]/@{{{1,2},{2,3}}{{3,4},{3,2},{1,4}}}
Out[]=

Black hole + nested

Black hole + subuniverse

Nested black holes

? Nested black holes

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.