# Math 1a Spring 2021

## 1a Introduction to Calculus

# 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).