Handouts
Students
Assignments
Quizzes
Of Interest
Main
Animation

Animated Graphics in MATHEMATICA

The animated graphic below was created by first drawing each individual picture using Mathematica, then saving the list of pictures as an animated gif.

HOW IT WAS DONE

First, store all the images in a list in the order you want them to be animated. For example:

In[1]:= picts=Table[Plot3D[Sin[x^2 + y^2 - i Pi/10],
		{x,-3Pi/4, 3 Pi/4},{y,-3Pi/4, 3Pi/4}, 
PlotPoints->40, Axes->False, Boxed->False],{i,0,19}]

Out[1]={-Graphics-,-Graphics-,-Graphics-,-Graphics-,-Graphics-,
        -Graphics-,-Graphics-,-Graphics-,-Graphics-,-Graphics-,
        -Graphics-,-Graphics-,-Graphics-,-Graphics-,-Graphics-,
        -Graphics-,-Graphics-,-Graphics-,-Graphics-,-Graphics-}

Second, execute the following command: 

In[3]:= Export["C:\Documents and Settings\username\Desktop\anipic.gif",picts,"GIF",ConversionOptions -> {"Loop" -> True}]
where username is your username. The file "anipic.gif" will appear on your desktop, and you can move it to your Unix account and include it on a webpage like any other ".gif" file. The only difference is that the animation will be displayed!