code for diagrams

> aa:=[0,0]:bb:=[5,0]: cc:=[5,5*tan(37*Pi/180)]:
tri:=plot({[aa,bb],[bb,cc],[cc,aa]},color=blue,thickness=3, scaling=constrained):
txt:=plots[textplot]({[aa[1]+2,aa[2]-.4,
`5 m/s`],[.5*(cc[1]+bb[1])+ 1,.5*(cc[2]+bb[2]) ,
`3.76 m/s`],[1.8,.5,`37 degrees`] },font=[TIMES,BOLD,16]):
circ:=plot([3*cos(t),3*sin(t),t=0.. .9*37*Pi/180],thickness=2):
circhd:=plot([ [3*cos(.9*37*Pi/180),3*sin(.9*37*Pi/180)],
[3*cos(.9*37*Pi/180),.8*3*sin(.9*37*Pi/180)]],thickness=2):
T1:=plots[display]({circhd,circ,txt,tri},axes=none,
title=`t = 0.5 sec`, titlefont=[TIMES,BOLD,20]):T1;

> aaa:=[0,0]:bbb:=[5,0]: ccc:=[5,-21.4]:
tri1:=plot({[ccc,aaa]},color=blue,thickness=3, scaling=constrained):
tri2:=plot({[aaa,bbb],[bbb,ccc]},color=blue,
thickness=3,linestyle=3, scaling=constrained):
tri3:=plots[display]({tri1,tri2}):
txt1:=plots[textplot]({[aaa[1]+2,aaa[2]+2,
`5 m/s`],[.5*(ccc[1]+bbb[1])+ 4,.5*(ccc[2]+bbb[2]),
`-21.4 m/s`],[-4,-4,`-77 degrees`] },font=[TIMES,BOLD,16]):
circ1:=plot([3*cos(t),3*sin(t),t=0.. .9*(-77)*Pi/180],thickness=2):
circhd1:=plot([ [3*cos(.9*(-77)*Pi/180),3*sin(.9*(-77)*Pi/180)],
[3*cos(.9*(-77)*Pi/180),.8*3*sin(.9*(-77)*Pi/180)]],
thickness=2):
T2:=plots[display]({circhd1,circ1,txt1,tri3},
axes=none,title=`t = 3.07 sec`, titlefont=[TIMES,BOLD,20]):

> T1;T2;