Mathematica позволяет легко создавать изумительные мультимедийные эффекты.

Трехмерный параметрический график с автоматическим выбором большинства опций.

-Graphics3D-

Тот же график с заданием ряда специфических опций.

-Graphics3D-

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 -

Mathematica позволяет создавать не только статичную, но и анимированную графику.

Чтобы увидеть анимацию, щелкните мышью по графику.

Это еще один пример анимации.

Mathematica также дает Вам возможность генерировать звук.

Эта  команда производит звук с заданной формой волны.

-Sound-

Система Mathematica сделала возможным создание многих новых видов научных, технических и художественных изображений.