Menger Sponge

Author

Eric W. Weisstein
June 4, 2003

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

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

For a list of Eric's packages that may be needed to evaluate this notebook, see http://mathworld.wolfram.com/packages/.

Initialization

<<Fractal`

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

Graphics

Show[Graphics3D[MengerFacade[2]],Boxed->False,ViewPoint->{-2,-2,0}]

Show[Graphics3D[MengerSponge[2]],Boxed->False]

LiveGraphics3D

Do[
	WriteLiveForm["menger"<>ToString[i]<>".m",
		Show[MengerSponge[i,opts]]],
	{i,3}]