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 »
WOLFRAM NOTEBOOK
In[]:=
ResourceFunction["SubstitutionSystemCausalGraph"]["A""AA","A",5]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["SubstitutionSystemCausalGraph"][{"A""AB","B""A"},"A",5]]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"A""AB","B""A"},"A",5,"CausalGraphStructure"],AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[ResourceFunction["MultiwaySystem"][{"A""AB","B""A"},"A",5,"CausalGraph"],AspectRatio1/2]
Out[]=