Eine Kurve entsprechend ihrer Bogenlänge färben 

Färben Sie mithilfe der ArcLength-Funktion eine Kurve entsprechend ihrer zurückgelegten Bogenlänge.

In[1]:=

X c[t_] = {Cos[3 t], Sin[5 t]}; total = ArcLength[c[t], {t, 0., 2 Pi}]; ParametricPlot[c[t], {t, 0, 2 Pi}, PlotStyle -> Thick, ColorFunctionScaling -> False, ImageSize -> 300, PlotTheme -> "Scientific", ColorFunction -> (Hue[0.6 ArcLength[c[t], {t, 0, #3}]/total] &), PlotLegends -> BarLegend[{Hue[0.6 #/total] &, {0, total}}]]

Out[1]=