In[]:=
MultiwaySystem[{"AB""BAB","BA""A"},"ABA",5,"CausalGraph"]
Out[]=
In[]:=
TransitiveReductionGraph[%]
Out[]=
In[]:=
SimpleGraph[%%]
Out[]=
Transitive redundancy is computational reducibility of the spacetime
Transitive redundancy is computational reducibility of the spacetime
In[]:=
MultiwaySystem[{"AB""BAB","BA""A"},"ABA",5,"EvolutionCausalGraph"]
Out[]=
In[]:=
TransitiveClosureGraph[%]
Out[]=
Every edge represents a complete history for the system.....