如何生成一個Manipulate的動畫GIF？ 8.0.1

導出爲GIF動畫似乎在Mathematica 8.0.1中有所變化？如何生成一個Manipulate的動畫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

來源

2011-05-24 Nasser

我不使用版本8，但我很好奇，想知道你會得到什麼，如果你使用：'出口[「foo.gif」，{V}]' – 2011-05-24 12:05:55

同樣的效果我使用{V} ，沒有生成動畫gif。 – Nasser 2011-05-24 12:22:38

不是那麼簡單的恥辱。恐怕我不能幫忙。 – 2011-05-24 12:25:55

您可以將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]

來源

2011-05-24 13:11:25

謝謝馬克！那樣做了。我想投你的答案，但它論壇不會讓我。我用你的訣竅終於爲學校的HW做了一個小操作。如果你喜歡看動畫，這裏是 http://12000.org/my_notes/mma_demos/pendulum_flywheel/index.htm 我用膠乳加載它，縮小了一點。再次感謝！我比其他數學小組更喜歡這個論壇，因爲這裏沒有很長的延遲，最後可以談論Mathematica。 --Nasser – Nasser 2011-05-24 20:22:30

@Nasser - 很高興幫助！我很高興你喜歡這個論壇。這與數學組顯然不同。我相信他們都有自己的優勢，但我絕對喜歡這裏的轉身。關於upvote，你需要贏得一點聲譽，然後才能這樣做。我不認爲這太多。 – 2011-05-25 01:57:39

您可以使用v = Animate[ Text[t], {{t, 4, "start"}, 0, 10, 1, ControlType -> Trigger, AnimationRate -> 1, AnimationRepetitions -> 10}]

來源

2011-05-24 11:48:32 FreshApple

如何生成一個Manipulate的動畫GIF？ 8.0.1

回答

相關問題