In[]:=
x[t_]:=50Cos[t];y[t_]:=50Sin[t];z[t_]:=0t;H[t_,a_]:=ParametricPlot3D[{x[t],y[t],z[t]},{t,a,a-1.8Pi},PlotRange->{{-60,60},{-60,60},{-5,5}},PlotStyle->{Red,Opacity[0.6],Tube[t/200]}];S[t_]:=Graphics3D[Sphere[{x[t],y[t],z[t]},2]];Animate[Show[H[t,a],S[a]],{a,0,2Pi},SaveDefinitionsTrue]
Out[]=
