Mathematica включает в себя графические
Эта команда генерирует длинный список графических примитивов, изображающих точку.
 |
Здесь из списка выбирается пять элементов.
Take[%,5]
 |
График, соответствующий списку примитивов.
Show[Graphics[gr, Frame-> True]]
 |
Создание списка трехмерных примитивов, изображающих куб.
| gr=Flatten[Table[If[Mod[Multinomial[x,y,z],2]==1, Cuboid[1.2{x,y,-z}],{}],{x,0,15}, {y,0,15},{z,0,15}]]; |
Выбор первых пяти элементов в списке.
| Take[%,5]{Cuboid[{0,0,0}], Cuboid[{0,0,-1.2}], Cuboid[{0,0,-2.4}] ,Cuboid[{0,0,-3.6}], Cuboid[{0,0,-4.8}]} |
Эта команда рисует график, соответствующий списку примитивов.
Show[Graphics3D[gr]]
 |
