ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBBAAA"},10,"EvolutionEventsGraph"]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBBAAA"},10,"EvolutionCausalGraph"],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBAA"},10,"EvolutionCausalGraph"],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBAA"},10,"CausalGraph"],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBBAA"},10,"CausalGraph"],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"BA""AB"},{"BBBAA"},10,"EvolutionCausalGraph"],AspectRatio1/2]
In[]:=
Out[]=

Causal edge density leads to convergence: how to demonstrate?