OO={0,0};

a=13;
b=17;

OA[α_]:= a{Cos[α],Sin[α]}

AB[α_,β_]:= b{Cos[α-(Pi-β)],Sin[α-(Pi-β)]}

Show[Graphics[{

Blue,Thick,
Line[{OO,OA[60 Degree]}],

Red,
Line[{OA[60 Degree],OA[60 Degree]+AB[30Degree,120Degree]}]

}],
AspectRatio->Automatic,Axes->True,PlotRange->{{-30,30},{-30,30}},
ImageSize->400]

VB[α0_,β0_,αp_,βp_,t_]=D[OA[α0 Degree+αp Degree*t]+AB[α0 Degree+αp Degree*t,β0 Degree+βp Degree*t],t]

AccB[α0_,β0_,αp_,βp_,t_]=D[VB[α0,β0,αp,βp,t],t]

Manipulate[(
(*VA[t_]=D[OA[α0 Degree+αp Degree*t],t];*)
(*VB[t_]=D[OA[α0 Degree+αp Degree*t]+AB[α0 Degree+αp Degree*t,β0 Degree+βp Degree*t],t];

AccB[t_]=D[VB[t],t];
*)
Av=OA[α0 Degree+αp Degree*tf];
Bv=OA[α0 Degree+αp Degree*tf]+AB[α0 Degree+αp Degree*tf,β0 Degree+βp Degree*tf];
Bvt=OA[α0 Degree+αp Degree*t]+AB[α0 Degree+αp Degree*t,β0 Degree+βp Degree*t];
Column[{
Show[{Graphics[{
Thickness[0.0071],Red,
Line[{OO,Av}],

Magenta,Thickness[0.0071],
Line[{Av,Bv}],

Gray,Opacity[1],
PointSize[0.02],
Point[OO],
PointSize[Large],
Point[Av],
PointSize[0.042],
Point[Bv],

Orange,Thickness[0.0051],Arrowheads[0.031],
Opacity[oporange],
Arrow[Line[{Bv,Bv+12VB[α0,β0,αp,βp,tf]}]
],Opacity[1],

Black,Opacity[opmagenta],
Arrow[Line[{Bv,Bv+300AccB[α0,β0,αp,βp,tf]}]
]
}],
ParametricPlot[Bvt,{t,0,tf},
PlotPoints->70,
PlotStyle->{Thick,Opacity[opparam]}]
},
PlotLabel->"by Massimo Guiggiani (2016)",
AspectRatio->Automatic,Axes->None,
PlotRange->{{-40,40},{-40,40}},
ImageSize->600],

Show[{Plot[Norm[VB[α0,β0,αp,βp,t]],{t,0,tf}]
},
Axes->True,
AxesLabel->{"t","V"},
AxesStyle->Medium,
AxesOrigin->{0,0},
PlotRange->{{0,tf},All},
ImageSize->300]
}]
),

{{opparam,1,"trajectory"},{0,1},Appearance->"PopupMenu"},
{{oporange,0,"velocity"},{0,1},Appearance->"PopupMenu"},
{{opmagenta,0,"acceleration"},{0,1},Appearance->"PopupMenu"},
{{α0,60},0,360},
{{β0,150},0,360},
{{αp,2.5},0,5,Appearance->"Open",AnimationRate->0.15},
{{βp,-2.5},-5,5,Appearance->"Open",AnimationRate->0.15},
{{tf,0.001,"time"},0.001,2000,Appearance->"Open",AnimationRate->15},

ControlPlacement->{Right},
SaveDefinitions->True
]