WOLFRAM NOTEBOOK

CellGraphics[list_]:=Graphics[Raster[1-Reverse[list]],AspectRatioAutomatic]
CellGraphics[list_,k_]:=Graphics[Raster[(k-1-Reverse[list])/(k-1)],AspectRatioAutomatic]
Show[CellGraphics[NestList[(Last/@Rest[FAStep[lamp,1,#]])&,PadRight[{1},50],30]]]
⁃Graphics⁃
Show[GraphicsArray[Partition[Function[fa,CellGraphics[NestList[(Last/@Rest[FAStep[fa,1,#]])&,PadRight[{1},50],30]]]/@AllFAs[2,2],8]]];
Show[GraphicsArray[Partition[Function[fa,CellGraphics[NestList[(Last/@Rest[FAStep[fa,1,#]])&,PadRight[{1},51],30]]]/@AllFAs[2,2],8]]];
NOTE: This drops cases where there is only logarithmic growth.
For some reason, various interesting cases are being dropped.
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.