In[]:=
gg1=ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},5,"CausalGraph"]
Out[]=
In[]:=
gg1=ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},10,"CausalGraphStructure"]
Out[]=
In[]:=
LayeredGraphPlot[%,AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},8,"StatesGraphStructure"],AspectRatio1/2]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},5,"EvolutionEventsGraphStructure"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},5,"EvolutionCausalGraphStructure"]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{"A""AB","BB""A"},{"A"},5,"EvolutionCausalGraph"]
Out[]=