Reverend Back's Abbey Floor

Author

Eric W. Weisstein
February 3, 2011

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Fractals/ReverendBacksAbbeyFloor.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ReverendBacksAbbeyFloor.html.

©2011 Wolfram Research, Inc. except for portions noted otherwise

Sequence

W[1]:={0,1}
W[n_]:=W[n]=Join[W[n-1],W[n-1],Reverse[W[n-1]]]

W/@Range[4]//ColumnForm

FromDigits/@(W/@Range[4])

FromDigits[#,2]&/@(W/@Range[4])

Plot

dig=W[6];

Table[Mod[dig[[x]]+dig[[y]],2],{x,128},{y,128}]==Table[Mod[dig[[x]]-dig[[y]],2],{x,128},{y,128}]

V5

ArrayPlot[Table[Mod[dig[[x]]+dig[[y]],2],{x,128},{y,128}],PixelConstrained->True,ImageSize->256]

ArrayPlot[Mod[Table[dig[[x]]-dig[[y]],{x,128},{y,128}],3],PixelConstrained->True,ColorRules->{0->Yellow,1->Green,2->Blue}]

V6

ArrayPlot[Table[Mod[dig[[x]]+dig[[y]],2],{x,128},{y,128}],PixelConstrained->True]

"ReverendBacksAbbeyFloor"->,