Animeret grafik i Mathematica

Link: http://academic2.american.edu/~jpnolan/Misc/MathematicaAnimation.html

Mathematica kan producere animerede GIF, men dokumentationen er ikke klart, og jeg kunne finde nogen eksempel, hvor en animation blev skrevet til en fil. Her er et simpelt eksempel, der viser de grundlæggende trin i at producere en animeret GIF.

<<Graphics`Animation`
plot1 = Table[ Plot[{Sin[a x], 0.5 Cos[a x]}, {x, -5, 5}, PlotRange -> {-2, 2}, PlotLabel -> “animated sin function”,
PlotStyle -> {{RGBColor[0, 1, 0], Thickness[0.01]}, {RGBColor[0, 0, 1], Thickness[0.01]}}, DisplayFunction -> Identity], {a, 0, 10, .5}]
Export[“c:/temp/sinx.gif”, plot1, ConversionOptions -> {“AnimationDisplayTime” -> 0.5, “Loop” -> True}, ImageSize -> {500, 500}]

 

 

Bemærkninger:
(1) << Graphics`Animation` indlæser animation pakke.
(2) Table […] kommando opretter en tabel over grafer. DisplayFunction -> Identitet forhindrer graferne i at vise i den bærbare computer. De andre muligheder er standard. Medmindre du gør noget usædvanligt, skal du indstille PlotRange til at være den samme på alle grafer, ellers animationen vil være jerky.
(3) Eksport […] skriver bordet til en af .gif fil givet i det første argument. Valgmulighederne i ConversionOptions argument skal være i anførselstegn. Mere info i Hjælp browser: under Export kommando, se under “Yderligere oplysninger”, og klik derefter på “GIF” celle.

Her er den resulterende graf:

Animated GIF

Comments are closed.