Анимация движения в Mathematica

[Smoker]

Доброго времени суток, прошу помочь разобраться с анимацией движения в Математике 8.0, никак не пойму что делать, само задание уже сделано, осталось сделать анимацию движения. В анимации, да и вообще в Математике не разбираюсь, так что буду очень признателен, если напишите готовый вариант :)



Заранее благодарен и всех с Наступающим!

[Vince Diesel]

C анимацией чего конкретно? И лучше приводить листинг, с тегом Code.

[Smoker]

Vince Diesel в сообщении #805030 писал(а):

C анимацией чего конкретно? И лучше приводить листинг, с тегом Code.

Просто времени не было, а сейчас не могу отредактировать. Нужна анимация движения в любом из заданий, в архиве задания, сами программы, рисунок и т.п., но с анимацией разобраться не могу, теория то есть, а вот на практике ничего не получается :(

http://rghost.ru/51150714

[arseniiv]

Smoker в сообщении #805049 писал(а):

теория то есть

А ещё есть справка, очень подробная. Правда, англоязычная.

[Aritaborian]

Smoker, на кой чёрт нам ваш архив. Там какие-то программы на Паскале, ещё что-то... Мне как-то не хочется час в этом копаться ;-)
Можете задать конкретный вопрос? Вы хотите знать, как реализовать анимацию в Mathematica. Отвечаю: за это отвечают функции Animate и ListAnimate. Вот простейший код:

Animate[Plot[Sin[x + a], {x, 0, 10}], {a, 0, 5}, AnimationRunning -> False]

Запустите его у себя, а потом скажите, что непонятно.

[Smoker]

Aritaborian в сообщении #805267 писал(а):

Smoker, на кой чёрт нам ваш архив. Там какие-то программы на Паскале, ещё что-то... Мне как-то не хочется час в этом копаться
Можете задать конкретный вопрос? Вы хотите знать, как реализовать анимацию в Mathematica. Отвечаю: за это отвечают функции Animate и ListAnimate. Вот простейший код:

Animate[Plot[Sin[x + a], {x, 0, 10}], {a, 0, 5}, AnimationRunning -> False]

Запустите его у себя, а потом скажите, что непонятно.

На все остальное можно не смотреть, это просто нам так надо было сделать. С этой анимацией все понятно, но применить его к моему случаю не получается. Мне нужна любая анимация применимая к моим программам, к примеру чтобы точка двигалась по графику.

[Aritaborian]

Вот, пожалуйста, пример точки, ползущей по графику.

Animate[Show[Plot[x^2, {x, 0, 1}, AspectRatio -> Automatic], Graphics[{PointSize[Large], Point[{t, t^2}]}]], {t, 0, 1}]

В этом коде всё ясно?