Use mathematica to plot graphs of the trajectory using the shown equations of a projectile thrown at 45 above the horizontal and subject to linear air resistance for four different values of the drag coefficient (four plots total), ranging from a significant amount of drag down to no drag at all. Put all four trajectories on the same plot. Provide copy of the code and plots.

Hint: In the absence of any given numbers, you may as well choose convenient values.

For example, why not take Vxo = Vyo = 1 & g = 1. (This amounts to choosing your units of length and time so that these parameters have the value 1.) With these choices, the strength of the drag is given by the one parameter Vter = tau, and you might choose to plot the trajectories for Vter = 0.3, 1, 3, and infinity (that is, no drag at all), and for times from t = 0 to 3. For the case that Vter = infiniti, you'll probably want to write out the trajectory separately.

x(t)y(t)=vxo(1et/)=(vyo+vter)(1et/)vtert