Smoker, на кой чёрт нам ваш архив. Там какие-то программы на Паскале, ещё что-то... Мне как-то не хочется час в этом копаться ;-)
Можете задать конкретный вопрос? Вы хотите знать, как реализовать анимацию в
Mathematica. Отвечаю: за это отвечают функции
Animate и
ListAnimate. Вот простейший код:
Код:
Animate[Plot[Sin[x + a], {x, 0, 10}], {a, 0, 5}, AnimationRunning -> False]
Запустите его у себя, а потом скажите, что непонятно.