The Stellated Icosahedra

by Roman E. Maeder

The enumeration of all stellations of the icosahedron was accomplished in 1938. The geometric constructions and combinatorial algorithms used can easily be programmed
in Mathematica. Its symbolic  and graphic capabilities make it well suited to render the solids in a variety of formats.

Reference

Title

The Stellated Icosahedra

Author

Roman E. Maeder

Summary

Contains some examples for the use of the package Icosahedra.m

Package Version

1.2

Copyright

© Copyright 1994, Roman E. Maeder.

Permission is granted to distribute this file for any purpose except for inclusion in commercial software or program collections. This copyright notice must remain intact..
  
The use of this code for the preparation of graphics images for publication or commercial purposes requires prior written permission by the author.

History

Version 1.2 for MathSource, January 1994.

Version 1.1 for Mathematica in Education, October 1993.

Keywords

Stellated Icosahedra, Stellation, Polyhedra

Source

Maeder, Roman E. 1993. The Stellated Icosahedra. Mathematica in Education, 3(1).

Mathematica Version

2.2

Requirements

Icosahedra.m

Init

You may have to add the directory with Icosahedra.m to your $Path or do something like this:

SetDirectory["full path name of directory"];

Imports

Needs["Icosahedra`"]

Option Settings

SetOptions[GraphicsArray, GraphicsSpacing->0];
SetOptions[Graphics3D, Boxed->False];

Auxiliary Functions

Show 3D image and planar map next to each other.

icosahedralGraphics[n_, opts___] :=
GraphicsArray[
	{ Icosahedra[n, opts],
      FaceGraphics[n, opts, Frame->True, FrameTicks->None]}
]

Examples

Maps of Lines and Facets

The first two show the intersection figures of all planes of the icosahedron. The inner graphics   leaves out the outermost points and allows a better view into the complicated interior.

Show[ lineGraphics ];

Show[ lineGraphicsInner ];

The different kinds of facets are color coded.

Show[ faceGraphics ];

Show[ faceGraphicsInner ];

Here is an example of a planar map of a stellation.

Show[ FaceGraphics[59] ];

Left and Right Forms

Th left and right form of the compound of five tetrahedra.

Show[ GraphicsArray[{Icosahedra[36], Icosahedra[36, True]}] ];

Their combination is another stellation: the compound of ten tentrahedra.

Show[ Icosahedra[18] ];

The Compound of Five Octahedra

Show[ icosahedralGraphics[3] ];

All 59 Pictures

This command produces all 59 pictures. To the left is a 3D view of the solid, to the right is its planar map.

Scan[ Show[ icosahedralGraphics[#], PlotLabel->#]&,
      Range[Length[icosahedra]]
]

The Cover Picture

The cover of Vol. 3, issue 1, of Mathematica in Eduction shows these twelve stellations:

icosa = {
	{{ 2}, { 3}, {11}},
	{{36, False},  {18}, {36, True}},
	{{ 8}, {33}, {30}},
	{{23}, {45}, { 4}}
};

The dat a for ray tracing was derived from the following Mathematica graphics.

Show[ GraphicsArray[
  Apply[ Icosahedra[##, Boxed->False]&, icosa, {2} ]
] ] ;