Projectile Motion Range Animation

This shows the creation of the Maple animation.

>	with(plots):

Warning, the name changecoords has been redefined

>	path1:=plot([48*cos(Pi/4)*t,48*sin(Pi/4)*t-16*t^2,t=0..6],x=0..190,y=-192..100,color=red,thickness=2):

>	path2:=plot([48*cos(0.378)*t,48*sin(0.378)*t-16*t^2,t=0..6],x=0..190,y=-192..100,color=green,thickness=2):

>	path3:=plot([48*cos(Pi/3)*t,48*sin(Pi/3)*t-16*t^2,t=0..6],x=0..190,y=-192..100,color=blue,thickness=2):

>	path4:=plot([48*cos(0)*t,48*sin(0)*t-16*t^2,t=0..6],x=0..190,y=-192..100,color=black,thickness=2):

>	path5:=plot([40*t,-192,t=0..6],x=0..190,y=-192..100,color=magenta,thickness=2):

>	path6:=animate([48*cos(s*Pi/2)*t,48*sin(s*Pi/2)*t-16*t^2,t=0..6],s=0..1,frames=32,color=black,thickness=2):

>	display(path1,path2,path3,path4,path5,path6);

>