MultiwaySystem[{"A""AB"},{"AAA"},4,"CausalGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AB"},{"AAA"},4,"BranchialGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"A""AB"},{"AAA"},4,"EvolutionCausalGraphStructure"]
In[]:=
Out[]=
Graph[MultiwaySystem[{"A""AB"},{"AAA"},4,"EvolutionCausalGraphStructure"],GraphLayout"LayeredDigraphEmbedding",AspectRatio2/3]
In[]:=
Out[]=

AB->BA

Graph[MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"EvolutionCausalGraphStructure"],GraphLayout"LayeredDigraphEmbedding",AspectRatio1]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"CausalGraphStructure"]
In[]:=
Out[]=
Graph3D[MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"CausalGraphStructure"],GraphLayout"SpringElectricalEmbedding"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},5,"BranchialGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},{"BBAA"},10,"EvolutionCausalGraph"]//LayeredGraphPlot
In[]:=
Out[]=