In[]:=
WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},Table[{0,0,0},2],100,{"FinalStatePlot","CausalGraph"}]
Out[]=
In[]:=
Table[Framed[Show[#,ImageSize{70,UpTo[80]}],FrameStyleLightGray]&/@WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},Table[{0,0,0},n],50,{"FinalStatePlot","CausalGraph"}],{n,2,8}]
Out[]=
In[]:=
WolframModel[{{x}}{{x},{x}},{{1},{2},{1,2}},4,"StatesPlotsList"]
Out[]=
In[]:=
WolframModel[{{x}}{{x},{x}},{{1},{2},{1,2}},4,"CausalGraph"]
Out[]=
In[]:=
MultiwaySystem[WolframModel[{{x}}{{x},{x}}],{{1},{2},{1,2}},5,"CausalGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[WolframModel[{{x}}{{x},{x}}],{{1},{2},{1,2}},3,"CausalGraphStructure"]
Out[]=
In[]:=
MultiwaySystem[WolframModel[{{x}}{{x},{x}}],{{1},{2},{1,2}},3,"CausalGraph",VertexSize3]
Out[]=
In[]:=
MultiwaySystem[WolframModel[{{x}}{{x},{x}}],{{1},{2},{1,2}},5,"StatesGraphStructure"]
Out[]=
In[]:=
WolframModel[{{{1,2,3},{4,5,6},{2,6}}{{7,7,2},{6,2,8},{8,5,7},{8,9,3},{1,6},{10,6},{5,3},{7,11}}},Automatic,5,{"FinalStatePlot","CausalGraph"}]
Out[]=
In[]:=
WolframModel[{{{1,2,3},{4,5,6},{2,6}}{{7,7,2},{6,2,8},{8,5,7},{8,9,3},{1,6},{10,6},{5,3},{7,11}}},Automatic,7,{"FinalStatePlot","CausalGraph"}]
Out[]=
In[]:=
WolframModel[{{{1,2,3},{4,5,6},{2,6}}{{7,7,2},{6,2,8},{8,5,7},{8,9,3},{1,6},{10,6},{5,3},{7,11}}},Automatic,10,{"FinalStatePlot","CausalGraph"}]
Out[]=
In[]:=
WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{3,2},{3,4},{4,3},{4,4}},{{0,0},{0,0},{0,0}},25,"FinalStatePlot"]
Out[]=