Пакет plottools
содержит следующие команды, позволяющие
создавать трехмерные графические примитивы,
чтобы использовать их в других графиках
cone cuboid cutin cylinder
dodecahedron hemisphere hexahedron icosahedron
octahedron semitorus sphere tetrahedron torus
Приведем примеры (рис. 65)
> with(plottools):
f := octahedron([0,0,0],0.8), octahedron([1,1,1],0.5):
plots[display](f,style=patch);
Warning, new definition for curve
Warning, new definition for translate
Рис. 65
На следующем примере показано, как можно
построить поверхность, состоящую из правильных
многогранников, в данном случае - додекаэдров
(рис. 66)
> data := seq(
seq(dodecahedron([i,j,evalf(4*cos((i+j)/5))],0.5), i=-5..5), j=-5..5):
> plots[display]( data, axes=frame,
labels=[x,y,z]);
Рис. 66
|