Manipulate[ParametricPlot[Evaluate[First[{x[t],z[t]}/.NDSolve[{x[0]==0,z[0]==0,x'[0]==V0 Sin[α],z'[0]==V0 Cos[α],m x''[t]==-k x'[t]+k Ωr z[t],m z''[t]==-9.81`-k z'[t]-k Ωr x[t]},{x[t],z[t]},{t,0,100}]]],{t,0,100},PlotRange->{{-1000,1000},{0,400}},AspectRatio->1/2],{{α,Pi/6},0,Pi/2,0.02},{{V0,80},0,100,1},{m,1},{{k,0.05},0,1,0.01},{{Ωr,0},-10,10,0.001},{g,9.81}]