Wolfram Function Repository
Instantuse addon functions for the Wolfram Language
Function Repository Resource:
Generate a graph giving the relations between regions of causally equivalent events in a causal graph
ResourceFunction["CausalConnectionGraph"][cgf,ti,tf] generates a graph of relations between causally equivalent regions that are detected at step ti in the causal graph generated by cgf, as determined by outcomes at step tf.  
ResourceFunction["CausalConnectionGraph"][cgf,{ti_{1},ti_{2}},{tf_{1},tf_{2}}] considers regions detected between steps ti_{1} and ti_{2}, with outcomes determined by looking at steps tf_{1} through tf_{2}.  
ResourceFunction["CausalConnectionGraph"][cg,{vi_{1},…},{vf_{1},…}] generates the causal connection graph from the causal graph cg by considering causally equivalent regions among the event nodes vi_{k}, as determined by looking at the event nodes vf_{k}.  
ResourceFunction["CausalConnectionGraph"][c,i,f,"Full"] gives the full causal connection graph for every event, not aggregating causally equivalent events. 
ResourceFunction[“SubstitutionSystemCausalGraph”][rules,init, #] &  string substitution system 
ResourceFunction[“WolframModel”][rules,init, #, “CausalGraph”] &  Wolfram model 
Generate a causal graph:
In[1]:= 

Out[1]= 

Find the causal connection graph for events at step 3 (there are just two "subuniverses" in this case):
In[2]:= 

Out[2]= 

Find the corresponding result for events at step 5:
In[3]:= 

Out[3]= 

Generate the causal connection graph for a “black hole”, where the future of a1 contains the future of a2, but not the other way around:
In[4]:= 

Out[4]= 

In[5]:= 

Out[5]= 

Cases with undirected edges:
In[6]:= 

Out[6]= 

In[7]:= 

Out[7]= 

Another example:
In[8]:= 

Out[8]= 

In[9]:= 

Out[9]= 

This work is licensed under a Creative Commons Attribution 4.0 International License