希望大家帮我用Mathematica编写一个动画

p1 = ParametricPlot3D[{Cos[t], Sin[t], t}, {t, 0, 4 \[Pi]},
BoxRatios -> {1, 1, 1/2}];
Manipulate[
Show[p1, Graphics3D[{Red,
Arrow[{{Cos[t0] + Sin[t0], Sin[t0] - Cos[t0],
t0 - 1}, {Cos[t0] - Sin[t0], Sin[t0] + Cos[t0], t0 + 1}}]}],
PlotRange -> {{-2, 2}, {-2, 2}, {-1, 4 \[Pi] + 1}}], {t0, 0,
4 \[Pi]}]