Escher's Map

Author

Eric W. Weisstein
November 27, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/EschersMap.nb.

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

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

Initialization

f[β_,z_]:=z^(1+Cos[β]+I Sin[β])

Plot

<<Plot`

Complex Plane

ComplexPlot3D[f[.4,z],{z,-5,5},ComplexPlotLabel->HoldForm[f[1.4,z]]]//Timing

ComplexContourPlot[f[.4,z],{z,-5,5},ComplexPlotLabel->HoldForm[f[1.4,z]]]//Timing