Arrowheads on parametric curves

Question

I have the following animated parametric curve where the gap looks like it's rotating in the counterclockwise direction.

Animate[ParametricPlot[{Cos[t], Sin[t]}, {t, a, a + 2 Pi - Pi/8}, 
Axes -> False, PlotStyle -> {Thick, Purple}], {a, 0, 10}]

enter image description here

I'd like to add an arrow to the endpoint so that is appears to point in the direction of rotation. Is there a simple way to do this?

After the ParametricPlot[], try adding a /. Line -> Arrow… — J. M.'s missing motivation, May 30 '15 at 14:46
Duplicates: (13547), (55535), (60838). More examples: (4793), (38350), (43478), (48882), (59340), (73314). — Mr.Wizard, May 30 '15 at 16:07
As well as (2099) and this answer: http://mathematica.stackexchange.com/a/71843 — Michael E2, May 30 '15 at 16:44

J.K.T. · Answer 1 · 2015-05-30T16:06:20.207

2

Animate[ParametricPlot[{Cos[t], Sin[t]}, {t, a, a + 2 Pi - Pi/8}, 
Axes -> False, PlotStyle -> {Thick, Purple}] /. Line -> Arrow, {a,0,10}]

enter image description here

edited May 30 '15 at 16:06

answered May 30 '15 at 15:41

J.K.T.

1 Answers1