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[]=