code for plots

> f1:=-4*(t-5)^2: f2:=80/25*t^2:

> F1:=plot(f1,t=0..5,color=black,thickness=3,title=`a(t)`
,titlefont=[TIMES,BOLD,16]):
F2:=plot(f2,t=0..5,color=black,thickness=3,title=`b(t)`,
titlefont=[TIMES,BOLD,16] ):
i:='i':j:='j':t:=`t`:
gp1x:=NULL: for i from 1 to 25 do
gp1x:=gp1x,[[i/5,-100],[i/5,0]]: od:t:=`t`:
for j from 1 to 50 do
gp1x:=gp1x,[[0, -2*j],[5,-2*j]]:od:

> pap := plot({gp1x},color=blue):
Aplot:=plots[display](pap,F1): Aplot;
plots[display](plottools[translate](Aplot,0,100));