MF=CharacterRange["\[LeftArrow]","⇿"];
CF2=Function[{p},ColorData["DarkRainbow"][p]];
With[{g={2Sin[2x],Sin[x]-Cos[2x]}},
Show[ Graphics[Table[{CF2[t/(2Pi)],
Arrowheads[{{.001,1}}],Arrow[{g,Normalize[D[g,x]]+g}],
Text[Style[MF[[Floor[14t+1]]],Large],Normalize[D[g,x]]+g]}/.x->t,
{t,0,2Pi,.07}]],ImageSize->700]]
No comments:
Post a Comment