WolframModel[{{x,y}}{{y,z},{y,z}},{{0,0}},6,"LayeredCausalGraph"]
In[]:=
Out[]=
WolframModel[{{x,y}}{{y,y},{x,z}},{{0,0}},6,"LayeredCausalGraph"]
In[]:=
Out[]=
Framed[#,FrameStyleLightGray]&/@WolframModel[{{x,y}}{{y,z},{y,z}},{{0,0}},4]["StatesPlotsList",ImageSizeTiny]
In[]:=
Out[]=
Framed[#,FrameStyleLightGray]&/@WolframModel[{{x}}{{y},{z}},{{0}},4]["StatesPlotsList",ImageSizeTiny]
In[]:=
Out[]=
WolframModel[{{x}}{{y},{z}},{{0}},5,"LayeredCausalGraph"]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x}}{{y},{z}}],{{0}},5,"StatesGraph",VertexSize1]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x,y}}{{y,z},{y,z}}],{{0,0}},5,"StatesGraph",VertexSize1]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x,y}}{{y,z},{y,z}}],{{0,0}},3,"CausalInvariantQ"]
In[]:=
True
Out[]=
MultiwaySystem[WolframModel[{{x,y}}{{y,z},{y,z}}],{{0,0}},7,"StatesGraphStructure"]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x}}{{y},{z}}],{{0}},6,"CausalGraph",VertexSize1]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x}}{{y},{z}}],{{0}},3,"StatesGraph",VertexSize1,"IncludeStateID"True]
In[]:=
Out[]=
WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},Table[{0,0,0},n],50,"CausalGraph"]
​
WolframModel[{{x,y}}{{y,y},{x,z}},{{0,0}},5,"LayeredCausalGraph"]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{x,y}}{{y,y},{x,z}}],{{0,0}},7,"StatesGraphStructure"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{{a,b}}{{a,b},{b,c,d}},{{a,b}}{{a,b,c},{c,d}}}],{{0,0}},4,"StatesGraph",VertexSize1]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{{a,b}}{{a,b},{b,c,d}},{{a,b}}{{a,b,c},{c,d}}}],{{0,0}},4,"StatesGraph",VertexSize1]
WolframModel[{{{a,b}}{{a,b},{b,c,d}},{{a,b}}{{a,b,c},{c,d}}},{{0,0},{0,0}},4,"CausalGraph"]
In[]:=
Out[]=
MultiwaySystem[WolframModel[{{{a}}{{a},{a,b}},{{a}}{{a,b},{b}}}],{{0}},4,"StatesGraph",VertexSize1.5]​​
In[]:=
Out[]=
FindCanonicalWolframModel[{{{a}}{{a},{a,b}},{{a}}{{a,b},{b}}}]
In[]:=
{{{1}}{{1,2},{1}},{{1}}{{1,2},{2}}}
Out[]=
XYifyRule[%]
In[]:=
{{{x}}{{x,y},{x}},{{x}}{{x,y},{y}}}
Out[]=
LayeredGraphPlot[MultiwaySystem[WolframModel[{{{a}}{{a},{a,b}},{{a}}{{a,b},{b}}}],{{0}},6,"CausalGraphStructure"],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[%,AspectRatio1/2]
In[]:=
Out[]=