WolframModelPlot[WolframModel[XXXXX,"CausalGraph"],"BranchialGraph"]
WolframModelPlot[MultiwaySystem[WolframModel[XXXXX]],"BranchialGraph"]
MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{{0,0},{0,0}}},3,"StateBranchialGraph",VertexSize1]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{{0,0},{0,0}}},4,"StateBranchialGraph",VertexSize2]
In[]:=
Out[]=

Strings

Table[MultiwaySystem[{"A""AB","B""A"},"A",t,"StateBranchialGraph"],{t,2,5}]
In[]:=
Out[]=
Table[MultiwaySystem[{"A""AB","B""A"},"A",t,"StateBranchialGraphStructure"],{t,2,10}]
In[]:=
Out[]=