code for diagrams

> p6:=plot(1,x=0..6):

> txt5:=plots[textplot]({[1,-.1,`t1`],[5,-.1,`t2`],
[-.3,1,`k`],[3,1.2,`a(t)=k`]},font=[TIMES,BOLD,16]):
lns2:=plot({[[1,0],[1,1]],[[5,0],[5,1]]},thickness=3,
linestyle=3):

> reg:=plots[polygonplot]([[1,0],[1,1],[5,1],[5,0],[1,0]],
style=patch,color=tan):

> plots[display]([txt5,reg,p6,lns2],xtickmarks=[],
ytickmarks=[],view=[-1..7,-.5..1.3],
title=`Shaded Region is velocity change over
interval`,titlefont=[TIMES,BOLD,15] );

> p7:=plot(x,x=0..6,thickness=3):

> txt6:=plots[textplot]({[1,-.1,`t1`],[5,-.1,`t2`],
[2.2,3.2,`v(t)=kt`]},font=[TIMES,BOLD,16]):
lns2:=plot({[[1,0],[1,1]],[[5,0],[5,5]]},thickness=3,
linestyle=3):

> reg2:=plots[polygonplot]([[1,0],[1,1],[5,5],[5,0],
[1,0]],style=patch,color=tan):

> plots[display]([txt6,reg2,p7],xtickmarks=[],
ytickmarks=[],view=[-1..7,-.5..6],
title=`Shaded Region is position change over
interval`,titlefont=[TIMES,BOLD,15] );