code

> a(t):=piecewise(t<=.5110,sin(t),t<=1,1-t);

> v(t):=piecewise(t<=.5110,1-cos(t),t<=1,t-t^2/2-.2527);