WOLFRAM NOTEBOOK

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

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[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.