Gingerbreadman Map

Author

Eric W. Weisstein
January 6, 2011

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

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

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

Map

z[{x_,y_}]:={1-y+Abs[x],x}

NestList[z,{-1,3},5]

Gingerbreadman[n_:10000]:={AbsolutePointSize[1],Point[NestList[z,{-.1,0},n]]}

V5

Show[Graphics[{Table[Line[NestList[z,{1,i},6]],{i,1,1.9,.3}],
			Line[NestList[z,{-1,3},5]],
			Gingerbreadman}],
	AspectRatio->Automatic,Frame->True]

V6

Graphics[{Table[Line[NestList[z,{1,i},6]],{i,1,1.9,.3}],Line[NestList[z,{-1,3},5]],Gingerbreadman[4000]},Frame->True]