In[]:=
toState[str_]:=MapThread[If[#"B",Append[#2,Last[#2]],#2]&,{Characters[str],Partition[Range[StringLength[str]+1],2,1]}]
In[]:=
WolframModel[{{1,2,2},{2,3}}{{1,2},{2,3,3}},toState[StringJoin[Table["BA",10]]],Infinity,"LayeredCausalGraph"]
In[]:=
LayeredGraphPlot[Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{{0,0},{0,0}}},3,"CausalGraph"],VertexSize1.8],AspectRatio1/2]
Out[]=
{{x,y},{z,y}}{{x,z},{y,z},{w,z}}
In[]:=
LayeredGraphPlot[Graph[MultiwaySystem[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}],{{{0,0},{0,0}}},4,"StatesGraph"],VertexSize1.8],AspectRatio1/2]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}],{{{0,0},{0,0}}},3,"BranchialGraph"],VertexSize1]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}],{{{0,0},{0,0}}},4,"BranchialGraph"],VertexSize2]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{z,y}}{{x,z},{y,z},{w,z}}],{{{0,0},{0,0}}},5,"BranchialGraph"],VertexSize2]
Out[]=
In[]:=
LayeredGraphPlot[Graph[MultiwaySystem[WolframModel[{{x,y,y},{z,x,u}}{{y,v,y},{y,z,v},{u,v,v}}],{{{0,0,0},{0,0,0}}},7,"StatesGraph"],VertexSize1.8],AspectRatio1/2]
Out[]=
In[]:=
LayeredGraphPlot[Graph[MultiwaySystem[WolframModel[{{x,y,y},{z,x,u}}{{y,v,y},{y,z,v},{u,v,v}}],{{{0,0,0},{0,0,0}}},9,"StatesGraph"],VertexSize2],AspectRatio1/2]
Out[]=
Causal Invariant Rules
Causal Invariant Rules