In[]:=
MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},2,"AllStatesList"]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},2,"StatesGraph","StateRenderingFunction"(Inset[Framed[Graph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize1,PerformanceGoal"Quality"]//LayeredGraphPlot
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},3,"StatesGraph","StateRenderingFunction"(Inset[Framed[UndirectedGraph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize1,PerformanceGoal"Quality"]//LayeredGraphPlot
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},4,"StatesGraph","StateRenderingFunction"(Inset[Framed[UndirectedGraph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize3,PerformanceGoal"Quality"]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},4,"StatesGraphStructure","StateRenderingFunction"(Inset[Framed[UndirectedGraph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize1,PerformanceGoal"Quality"]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},5,"StatesGraphStructure","StateRenderingFunction"(Inset[Framed[UndirectedGraph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize1,PerformanceGoal"Quality"]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}}],{{0,0},{0,0}},3,"BranchialGraph","StateRenderingFunction"(Inset[Framed[UndirectedGraph[Rule@@@#2,GraphLayout"SpringElectricalEmbedding"]],#1,Center,#3]&)],VertexSize1,PerformanceGoal"Quality"]
Out[]=