in wolfram mathematica I have the following code:
 
Animate[
    ParametricPlot3D[
        {x = Sin[t], y = Cos[t], z = t}, {t, 0, 5 Pi}], {t, 0, 5Pi}]

But it failed to animate a point that goes in the helix as I give values ??to T (0,5Pi)
here if I could:
 
Animate[Graphics[{ Circle[{2, 5}, 2], 
   Point[
    {2 + 2 Cos[t], 5 + 2 Sin[t]}]}], {t, 0, 2 Pi}]
![][2]
If you could help me do it in the same way I would appreciate a lot, sorry for my English