Application Center - Maplesoft
  Submit your work
Application Center Applications Color Plate: Icosahedron Preview

App Preview:

Color Plate: Icosahedron

You can switch back to the summary page by clicking here.

Learn about Maple
Download Application

 

Icosahedron.mw

Plate 7: Icosahedron

Maplesoft, a division of Waterloo Maple Inc., 2004

> restart;

> with(geom3d):

Warning, the assigned name polar now has a global binding

> icosahedron(p1,point(o,0,0,0),1);

p1

> stellate(p2,p1,4):

> p := draw(p2):

> q := plottools[homothety](p,3):

> plots[display]([p,q],scaling=constrained,style=patchnogrid,lightmodel=light4,shading=xyz,orientation=[-107,81]);

[Plot]

>