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
diagonalSamples[m_?MatrixQ]:=With[{rows=Length[m],cols=Length[First[m]]},Transpose[MapIndexed[RotateRight[#,First[#2]-1]&,Transpose[Join[m,Table[0,{cols-1},{cols}]]]]]]
R1HalfGraphics[state_?MatrixQ,colors_Integer:2,opts___?OptionQ]:=GraphicsRasterReverser1HalfStaggeredMatrix1-,AspectRatio(AspectRatio/.{opts}/.AspectRatioAutomatic),opts
state
colors-1
r1HalfStaggeredMatrix[state_?MatrixQ]:=MapIndexed[RotateLeft[#1,Floor[(First[#2]-1)/2]]&,Flatten[Map[Table[Evaluate[Flatten[Transpose[{#,#}]]],{2}]&,state],1]]
Show[RasterGraphics[FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{500}],300]]]
⁃RasterGraphics⁃
Show[RasterGraphics[diagonalSamples@FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{200}],150]]]
⁃RasterGraphics⁃
Show[R1HalfGraphics[RotateRight[diagonalSamples@FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{30}],20],{0,15}]]]
⁃Graphics⁃
Show[R1HalfGraphics[RotateRight[diagonalSamples@FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{200}],150],{0,100}]]]
⁃Graphics⁃