>	with(plots);

Warning, the name changecoords has been redefined

>	plot(sin(x),x=0..Pi);

>	xr:=(k,u,theta,t)->(u*cos(theta)/k)*(1-exp(-k*t));

>	yr:=(k,u,theta,t)->(-g*t/k)+((k*u*sin(theta)+g)/(k^2))*(1-exp(-k*t));

>

g:=9.8;

>	u:=20;theta:=(Pi/4);k:=1;F:=plot([xr(k,u,theta,t),yr(k,u,theta,t),t=0..3]);

>	u:=20;theta:=(Pi/4);k:=0.01;F1:=plot([xr(k,u,theta,t),yr(k,u,theta,t),t=0..3]);

>	display({F,F1});

>	help(animate);

>	u:=20;theta:=(Pi/4);k:=2;animate( pointplot, [ [[xr(k,u,theta,t),yr(k,u,theta,t)]], symbol=circle, symbolsize=20,color=red],         t=0..2, frames=60);

>