Goffinet Dragon

Author

Eric W. Weisstein
January 6, 2011

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

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

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

Additional Authors

Code by
Michael Trott
The Mathematica GuideBook for Graphics

Code

CantorPoints[1, p_] = {0, p};

CantorPoints[n_Integer, p_] := CantorPoints[n, p] =
     Join[CantorPoints[n - 1, p], 
          Outer[Plus, {p^n}, CantorPoints[n - 1, p]][[1]]]

CantorPicture[n_, p_] :=
Graphics[Point[{Re[#], Im[#]}& /@ CantorPoints[n, p]]]

Picture

CantorPicture[5,0.65-0.3 I]

CantorPicture[11, 0.65 - 0.3 I]

CantorPicture[15,0.65-0.3 I]

V6

CantorPicture[15,0.65-0.3 I]