Wolfram Cloud Page

In[]:=

ResourceFunction["MultiwaySystem"]["WolframModel"{{{1,2},{2,3}}{{4,1},{4,2},{1,2}}},{{{0,0},{0,0}}},5,"EvolutionCausalGraph"]

Out[]=

In[]:=

ResourceFunction["MultiwaySystem"]["WolframModel"{{{1,2},{2,3}}{{4,1},{4,2},{1,2}}},{{{0,0},{0,0}}},5,"CausalGraph"]

Out[]=

In[]:=

ResourceFunction["MultiwaySystem"]["WolframModel"{{{1,2},{2,3}}{{2,3},{3,1},{4,1}}},{{{0,0},{0,0}}},5,"CausalGraph"]

Out[]=

In[]:=

LayeredGraphPlot[%]

Out[]=