kill(all)$ stardisp:true$ ratprint:false$ assume(t>0)$

a(t):=''(amax*sin(2*%pi*t/time));
v(t):=''(integrate(a(t),t,0,t));
x(t):=''(integrate(v(t),t,0,t));
j(t):=''(diff(a(t),t));

amax:6.3$ time:3$

v(t):=''(v(t));
a(t):=''(a(t));
x(t):=''(x(t));
j(t):=''(j(t));

plot2d(
[
[parametric, t, x(t),  [t,0,time]],
[parametric, t, v(t),  [t,0,time]],
[parametric, t, a(t),  [t,0,time]],
[parametric, t, j(t),  [t,0,time]]
],

[xlabel,"time"],
[ylabel,"distance speed accel jerk"],
[legend, "x(t)", "v(t)","a(t)","j(t)"],
[gnuplot_preamble,"set key top center"]
)$