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 »
WOLFRAM NOTEBOOK
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[]=