Prerequisites: Derivatives of trigonometric functions, higher order derivatives.
Goal: To investigate properties of circular (harmonic) motion. To show that one component of harmonic motion satisfies Hooke's Law.
Today we will be investigating uniform-speed circular motion. After starting Maple, click File → New → Worksheet Mode to prepare Maple to accept commands. Then copy and paste the following code into your Maple worksheet. The color is only for your own reference; you may want to edit the purple characters, but probably not the red.
restart: with(plots):
R := 1: # radius of circle
ω := 2: # radians/(time unit)
x := t -> R*cos(ω*t): # x-component of motion
y := t -> R*sin(ω*t): # y-component of motion
circle := plot([R*cos(t),R*sin(t),t=0..2*Pi],color=gray, thickness=2):
shadow := animate([x(t)+R/100*cos(k),y(t)+R/100*sin(k),
k=0..2*Pi],t=Pi/24..2*Pi,tickmarks=[[-R,R],[-R,R]],
color=blue,frames=48):
motion := animate([x(t)+R/100*cos(k),0+R/100*sin(k),k=0..2*Pi],
t=Pi/24..2*Pi,color=red,frames=48,thickness=5):
display(circle,shadow,motion,scaling=constrained);
Note: The character "ω" is a greek letter omega, not the letter "w." It is used to represent angular velocity in physics.
After pasting this code into Maple, press <enter> (or <return>). A graph with a blue and a red dot should appear. If you click the graph, a control panel in the tool bar should allow you to animate the dots. The blue dot moves in uniform-speed circular motion, and the red dot represents the x-component, or "shadow" of the blue dot's motion.position := plot(R*cos(ω*t),t=0..2*Pi,tickmarks=[[0,2*Pi],
[-R,R]],scaling=constrained,color=blue):
display(position);
The graph it plots [y=R cos(ωt)] represents something about the red dot in the previous animation: the horizontal axis represents time (t), and the vertical axis represents what?velocity := plot(________,t=0..2*Pi,tickmarks=[[0,2*Pi],
[-R*ω,R*ω]],scaling=constrained,color=red):
display(velocity);
The graph it plots represents something about the red dot in a previous animation: the horizontal axis represents time (t), and the vertical axis represents what? What does it mean when the graph is negative?accelera := plot(________,t=0..2*Pi,tickmarks=[[0,2*Pi],
[-R*ω^2,R*ω^2]],scaling=constrained,color=green):
display(accelera);
The graph it plots represents something about the red dot in a previous animation; the horizontal axis represents time (t), and the vertical axis represents what? What does it mean when the graph is negative?display(accelera, velocity, position);It shows all three of the previous graphs at once. Although it can be useful to see the relationships between the graphs, a physics professor would cringe to see them all together; the horizontal axis represents time, but the vertical axis must simultaneously represent three different things. What are they?