Решим задачу по получению звезды Кеплера.
Этот звездчатый многогранник не является
правильным. Он был открыт Кеплером и назван «Stella octangula» (Звезда восьмиугольная).
1.Наберем команду:
<p = Polyhedron [Tetrahedron,]
Show [p, Boxed->False]
Получим изображение тетраэдра.
2.Произведем операцию усечения тетраэдра с коэффициентом 0,5 и получим октаэдр:
<p = Polyhedron [Tetrahedron,]
Show [Stellate[p,0,5],Boxed->False]
3.Операция двойного усечения:
<p = Polyhedron [Tetrahedron,]
Show[Stellate[Stellate[p,0,5]0,5],Boxed->False]
Приводит к получению звезды Кеплера.