In[]:=
ListPlot[DimensionReduce[WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},5,"FinalState"],2]]
Out[]=
In[]:=
AdjacencyMatrix[Graph[Rule@@@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},8,"FinalState"]]]//MatrixPlot
Out[]=
In[]:=
AdjacencyMatrix[Graph[Rule@@@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},8,"FinalState"]]]//ArrayPlot
Out[]=
In[]:=
ListPlot3D[AdjacencyMatrix[Graph[Rule@@@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},6,"FinalState"]]]]
Out[]=
In[]:=
ListPlot[DimensionReduce[WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},12,"FinalState"],2]]
Out[]=
In[]:=
AdjacencyMatrix[Graph[Rule@@@WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},12,"FinalState"]]]//MatrixPlot
Out[]=
