Введение в систему Mathmatica 3.0

         

Mathematica включает в себя графические


Эта команда генерирует длинный список графических примитивов, изображающих точку.

Здесь из списка выбирается пять элементов.

Take[%,5]

График, соответствующий списку примитивов.

Show[Graphics[gr, Frame-> True]]

-Graphics-

Создание списка трехмерных примитивов, изображающих куб.

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]]

- Graphics3D -


Содержание раздела