Your Last Assignment:
1) Do problem 16
2) Do problem 46
3) (Optional) Do my extension of problem 46
4) Extra Problem: Plot wave interference
5) (Optional) Open the file called "How To Animate," and run the animation.

WHAT TO HAND IN?  
Hand in a single piece of paper commenting on 
1) the wave interference plot
2) suggestions for combining computer tools (not just Mathematica) into the undergraduate curriculum.

Chpt 14, Problem 16
Do problem 16. Plot x, v, and a.
Experiment with the plots by adjusting  the w, phase, and the amplitude to see how each affects the x plot.

Clear["Global`*"];

x= amplitude Cos[w t + phase]

v=D[x,t]

a=D[v,t]

amplitude=6;
phase=Pi/3;
w= 3 Pi;
Plot[ x ,{t,0,2}];

amplitude=6;
phase=Pi/3;
w= 3 Pi;
Plot[ v ,{t,0,2}];

amplitude=6;
phase=Pi/3;
w= 3 Pi;
Plot[ a ,{t,0,2}];

Chpt 14, Problem 46
Do problem 46. Plot x and the potential energy with k=1.

Clear["Global`*"];

x= 5 Cos[Pi/3 t - Pi/4]

pe= (1/2) k x^2

Plot[ x ,{t,0,10}];

Plot[ pe /.{k->1}  ,{t,0,10}];

Chpt 14, Problem 46 (Optional) 
Extend problem 46 to compute the velocity and the kinetic energy. Plot the potential energy, kinetic energy, and total energy with k=1. 
(Note, you must determine w from the form of x, and use the relation w=Sqrt[k/m] to solve for m.)

Clear["Global`*"];

w=Pi/3;
x= 5 Cos[w t - Pi/4];

v=D[x,t]

pe= (1/2) k x^2;
ke= (1/2) m v^2;

k=1;
m=k/w^2

Plot[ {ke,pe,ke+pe} ,{t,0,10}];

Extra Problem 
An oboe plays f=440Hz, and a trumpet plays f=444Hz. Plot each wave, and plot the sum. (Use w= 2 Pi f.) Plot each on a separate graph.  Notice the so-called beat interference pattern.

Clear["Global`*"];

oboe   =Cos[2 Pi 440 t];
trumpet=Cos[2 Pi 444 t];

Plot[oboe, {t,0,1}];

Plot[trumpet, {t,0,1}];

Plot[oboe+trumpet, {t,0,1}];