In[]:=
wme=WolframModel[{{1,2},{1,3}}{{1,3},{1,4},{2,4},{3,4}},{{0,0},{0,0}},10]
Out[]=
In[]:=
Graph[Rule@@@#]&/@%["StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#,GraphLayout"SpringElectricalEmbedding",VertexLabelsAutomatic]&/@Take[wme["StatesList"],6]
Out[]=
In[]:=
Quit
In[]:=
VertexList
Out[]=
In[]:=
VertexCount
Out[]=
483
In[]:=
EdgeCount
Out[]=
966
In[]:=
VertexOutDegree
Out[]=
In[]:=
Histogram[%]
Out[]=
In[]:=
MatrixPlotAdjacencyMatrix
Out[]=
In[]:=
NeighborhoodGraph
,100
Out[]=
Larger run
Larger run
Local Neighborhoods
Local Neighborhoods
Change Indication
Change Indication
Multiway version
Multiway version
Causal graph
Causal graph
Not causal invariant