​​ClearAll["Global`*"];​​​​​​​​(*InitialValues*)​​g=9.8;​​u=100;​​angle=85;​​​​ux=u*Cos[angleDegree]//N;​​uy=u*Sin[angleDegree]//N;​​​​(*1.CalculateExactLandingTime*)​​tLand=(2*uy)/g;​​​​(*2.GenerateExactly50EvenlySpacedPointsfromt=0tot=tLand*)​​dataset=Table[​​{ux*t,(uy*t)-(0.5*g*t^2)},​​{t,Subdivide[0,tLand,50]}​​];​​​​(*3.PlottheGuaranteedCompleteArc*)​​ListLinePlot[dataset,​​PlotRange{{0,Automatic},{0,Automatic}},​​AspectRatio1/2,​​PlotStyleBlack,​​Epilog{Red,PointSize[Medium],Point[dataset]}​​]
Out[]=
0
50
100
150
0
100
200
300
400
500