Lecture 2 Dance

At the end of lecture 2, we demonstrated Mathematica. Here is the movie which was produced. First the code which we wrote down. I added a ColorFunction -> Hue to get a rainbow colored graph.
S = Animate[ Plot[Sin[t + 1/x], {x, -2, 2},
   PlotStyle -> {Thickness[0.002], Orange}, ColorFunction -> Hue,
   Background -> Yellow, PlotRange -> {-1, 1}, PlotPoints -> 100], {t,0,2Pi}]
Export["dance.gif", S, "GIF"]
Apropos Dance: See this animation (Thanks Ethan for the link).