2011-05-24 1 views
16

Экспорт в анимированный gif, кажется, изменился в Mathematica 8.0.1?Как сгенерировать анимированный GIF манипулятора? 8.0.1

Я обычно делают анимированные GIF-файлы из манипулировать просто писать:

v=Manipulate[....] 

then Export["foo.gif",v]; 

Но теперь он не работает. Я просто получаю статическое изображение.

Вот пример:

v=Manipulate[ 
Text[t], 
{{t,4,"start"},0,10,1,ControlType->Trigger,AnimationRate->1,AnimationRepetitions->10} 
] 

Теперь Export["foo.gif",v] просто генерировать статическое изображение, так как ничего не работает.

Но Export["foo.avi",v] работает, и он создает движущийся avi-фильм.

Кроме того, используется для анимации параметров GIF, которые я использовал раньше, но теперь не поддерживаются:

Export["foo.gif",v,ConversionOptions->{"AnimationDisplayTime"->0.5,"Loop"->True},ImageSize->{500,500}] 

Export::convoptobs: ConversionOptions is obsolete. 

Когда я иду, чтобы помочь, я не вижу вариантов GIF там. Как управлять задержкой анимации и т. Д.?

Я думал, что у кого-то здесь может быть идея.

благодаря --Nasser

+0

Я не использую версию 8, но мне интересно знать, что вы получите, если вы используете: 'Export [«foo.gif», {v}]' –

+0

Тот же эффект, когда я использовал {v} , анимированный gif не генерируется. – Nasser

+0

Позор это было не так просто. Боюсь, я не могу помочь. –

ответ

22

Вы можете экспортировать Table в анимированный GIF.

v = Table[Panel[Text[t]], {t, 0, 10, 1}]; 
Export["anim.gif", v, "DisplayDurations" -> 0.5] 

Если вы абсолютно хотите анимацию выглядеть как Manipulate, вы могли бы сделать что-то вроде этого.

v = Table[Manipulate[Text[t], 
    {{t, Mod[k, 10], "start"}, 0, 10, 1, ControlType -> Trigger}], 
    {k, 4, 14}]; 
Export["Manip.gif", v, "DisplayDurations" -> 0.5] 
+0

Thank you Mark! Так оно и было. Я хотел проголосовать за ваш ответ, но этот форум не позволит мне. Я использовал ваш трюк, чтобы, наконец, оживить маленький Манипул, который я сделал для школы HW. Если вам нравится смотреть анимацию, вот http://12000.org/my_notes/mma_demos/pendulum_flywheel/index.htm Я использовал латекс, чтобы загрузить его, немного уменьшив его. Еще раз спасибо !Мне нравится этот форум гораздо больше, чем в другой группе Math, так как здесь нет большой задержки, и можно наконец поговорить с Mathematica. --Nasser – Nasser

+0

@ Nasser - Рад помочь! И я рад, что вам нравится этот форум. Это определенно отличается от mathgroup. Я уверен, что у них обоих есть свои силы, но мне определенно нравится поворот здесь. Что касается повышения, вам нужно заработать немного репутации, прежде чем вы сможете это сделать. Я не думаю, что это слишком много. –

4

Вы можете использовать v = Animate[ Text[t], {{t, 4, "start"}, 0, 10, 1, ControlType -> Trigger, AnimationRate -> 1, AnimationRepetitions -> 10}]