In[]:=
MultiwaySystem[{"A""AB"},{"AAA"},4,"CausalGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB"},{"AAA"},4,"BranchialGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB"},{"AAA"},4,"EvolutionCausalGraphStructure"]
Out[]=
In[]:=
Graph[MultiwaySystem[{"A""AB"},{"AAA"},4,"EvolutionCausalGraphStructure"],GraphLayout"LayeredDigraphEmbedding",AspectRatio2/3]
Out[]=
AB->BA
AB->BA
In[]:=
Graph[MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"EvolutionCausalGraphStructure"],GraphLayout"LayeredDigraphEmbedding",AspectRatio1]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"CausalGraphStructure"]
Out[]=
In[]:=
Graph3D[MultiwaySystem[{"BA""AB"},{"BBBAAA"},10,"CausalGraphStructure"],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBBAAA"},5,"BranchialGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},{"BBAA"},10,"EvolutionCausalGraph"]//LayeredGraphPlot
Out[]=