You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
Last[SubstitutionSystem[{1{{1,0},{1,1}},0{{0,0},{0,0}}},{{1}},5]]//ArrayPlot
Out[]=
In[]:=
Graph[AdjacencyGraph[Last[SubstitutionSystem[{1{{1,0},{1,1}},0{{0,0},{0,0}}},{{1}},5]]],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
Graph3D[%]
Out[]=
In[]:=
SimpleGraph[Graph[AdjacencyGraph[Last[SubstitutionSystem[{1{{1,0},{1,1}},0{{0,0},{0,0}}},{{1}},5]]],GraphLayout"SpringElectricalEmbedding"]]
Out[]=
In[]:=
Graph[AdjacencyGraph[Last[SubstitutionSystem[{1{{1,0},{1,1}},0{{0,0},{0,0}}},{{1}},7]]],GraphLayout"SpringElectricalEmbedding"]
Out[]=
In[]:=
GraphPlot3D[%]
Out[]=