In[]:=
Quit
{"A""AB","B""A"},{"A""BB","B""A"}
In[]:=
MultiwaySystem[{"A""AB","B""A"},"A",4,"CausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB","B""A"},"A",4,"CausalGraphInstances"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},"BBAA",4,"CausalGraphInstances"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},"BBAA",4,"CausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},"BBBAA",6,"CausalGraphInstances"]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},"BBBBAAA",12,"CausalGraphStructure"]
Out[]=
In[]:=
LayeredGraphPlot[%]
Out[]=
In[]:=
SimpleGraph
Out[]=