Wolfram Cloud Page

In[]:=

ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"ABBABA",2,"EvolutionCausalGraph"]//LayeredGraph

Out[]=

In[]:=

ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"ABBABA",3,"EvolutionCausalGraph"]//LayeredGraph

Out[]=

In[]:=

ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"ABBABA",4,"EvolutionCausalGraphStructure"]//LayeredGraph

Out[]=

In[]:=

TransitiveReductionGraph[ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"ABBABA",4,"CausalGraph"]]//LayeredGraph

Out[]=

In[]:=

TransitiveReductionGraph[ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"BBBBAAAA",4,"CausalGraph"]]//LayeredGraph

Out[]=

In[]:=

TransitiveReductionGraph[ResourceFunction["MultiwaySystem"][{"AB"->"BA","BA"->"AB"},"BBBBAAAABBBB",4,"CausalGraph"]]//LayeredGraph

Out[]=