code for diagram

> para:=plot([5*t,-4.9*t^2-8.66*t+19.6,t=0..1.3],
thickness=3,xtickmarks=[2,4,6,8,10],
ytickmarks=[5,10,15],labels=[X,Y],
labelfont=[TIMES,BOLD,18], axesfont=[TIMES,BOLD,14],scaling=constrained):
plots[display](para,view=[-2..10,-5..20]);