Cantor dust

_____________________________________
Back to Robert's Math Figures
_____________________________________
[Cantor dust]

Incomprehensible, non-Wolfram Research-approved code:

start = {{0.0, 1.0}};

dropmid[{s_, f_}] :=

	With[{third = (f - s)/3.0}, {{s, s + third}, {f - third, f}} ];

trcorn = Map[ Transpose,
	NestList[ Function[Flatten[Map[ dropmid, # ], 1]],
		start, 4 ]];

allcorn = Map[
              Map[ Function[Outer[ List, #, # ]], # ]&,
           trcorn];

arr = Map[
       Map[ Apply[ Rectangle, # ]&,
        Transpose[ Map[ Flatten[#, 1]&, # ] ] ]&, allcorn];

Show[ GraphicsArray[
	DiagonalMatrix@Map[Graphics[#, AspectRatio -> 1]&, arr]],
	AspectRatio -> Automatic ]
Designed and rendered using Mathematica 2.2 for the Apple Macintosh.

[Privacy Policy] [Terms of Use]

_____________________________________
Home || The Math Library || Quick Reference || Search || Help 
_____________________________________

© 1994-2014 Drexel University. All rights reserved.
http://mathforum.org/
The Math Forum is a research and educational enterprise of the Drexel University School of Education.The Math Forum is a research and educational enterprise of the Drexel University School of Education.

Copyright © 1996/7 Robert M. Dickau.