Анимация. Пакет Математика позволяет “оживлять” построенные графики; для этого нужно

Пакет Математика позволяет “оживлять” построенные графики; для этого нужно выделить их и выбрать команду меню Graphics – Rendering – Animate Selected Graphics (Ctrl+Y). Графики будут поочередно сменять друг друга на экране монитора. При анимации может оказаться полезной команда выравнивания графиков: Graphics – Rendering – Align Selected Graphics.

Другой способ построения анимированных объектов – использование функции Animate.

Функция Animate[expr, {u, umin, umax}] создает анимацию выражения expr, в котором параметр u меняется от umin до umax. Может быть указан шаг изменения параметра: {u, umin, umax, du}. При этом выражение expr может быть любым, не обязательно рисунком.

Пример 11.8. Команда

In[ ]:= Animate[{n, Prime[n]}, {n, 1, 50, 1}]

выводит на экран поочередно простые числа вместе с порядковым номером числа.

Пример 11.9. Написанная ниже программа выводит на экран анимированный график – катящееся колесо. Точка обода колеса вычерчивает циклоиду. Один из кадров графика показан на рис. 11.10.

In[ ]:= tp=0.2; Animate[ ParametricPlot[

{ {Cos[Pi/2-t*4Pi]+4Pi*tp, Sin[Pi/2-t*4Pi]+1}, (*Колесо *)

{Cos[Pi/2-t*4Pi*tp]+4Pi*t*tp, Sin[Pi/2-t*4Pi*tp]+1}, (*Циклоида*)

{4Pi*tp+Cos[Pi/2-4Pi*tp]*t, 1+Sin[Pi/2-4Pi*tp]*t}, (*Радиус*)

{-1+t*(4Pi+2), 0}, (*Рельс*)

{0, t*2.5} (*Начало координат*)

}, {t, 0, 1},

AspectRatio -> Automatic, PlotRange -> All ],

{tp, 0, 1, 0.01}, AnimationRunning -> False]

Опция AnimationRunning -> False означает, что анимация выводится на экран в состоянии паузы.

Дата добавления: 2015-07-08