Компьютерная алгебра в программе Mathematica 4
Стоп-кадр анимации графика функции n*Sin[x]/x
Пример 14.2. Стоп-кадр анимации графика функции n*Sin[x]/x
Проигрыватель имеет мнемонику кнопок, подобную мнемонике бытовых проигрывателей видеодисков. Есть кнопки пуска и остановки, реверса проигрывания, замедления и ускорения проигрывания. Последние особенно важны, поскольку на современных компьютерах анимация рисунков происходит слишком быстро и лишь ее замедление позволяет обеспечить хорошую визуализацию данного процесса. Число кадров анимации не должно быть меньше 8-10, иначе вместо плавного движения будут видны резкие скачки изображения. Следующий пример иллюстрирует анимацию графика с параметрическим заданием функции: ShowAnimation[Table[ Graphics[Line[{{0 0}, {Cos[t], Sin[t]}}], PlotRange -> {{-1, 1}, {-1, 1}}], {t, 0, 2Pi, Pi/8}]] Запустив этот фрагмент программы, вы увидите построение отрезка прямой, вращающегося вокруг одного неподвижного конца. Здесь для анимации вначале строится набор кадров, а затем используется функция ShowAnimation. Аналогичным образом осуществляется анимация трехмерных графиков поверхностей или фигур. Рисунок 14.3 показывает начало подготовки к анимации сложной поверхности, описываемой функцией Бесселя, аргумент которой меняется от кадра к кадру.
