New in Wolfram
Mathematica
8: Gráficos 2D y 3D mejorados
◄
previous
|
next
►
Gráficos y visualización
Flechas curvadas con posiciones dinámicas de puntas de flecha
Use flechas curvadas con varias posiciones de puntas de flecha.
In[1]:=
X
curve = First[ First[ImportString[ ExportString[Style["M8", FontFamily -> "Times", FontSize -> 72], "PDF"]]]] /. {Thickness[_] :> {}, FilledCurve[args__] :> {FaceForm[ColorData["HTML", "Crimson"]], FilledCurve[args], Dashed, Arrow[JoinedCurve[args, CurveClosed -> True]]}};
In[2]:=
X
Animate[Graphics[{Arrowheads[{{0.05, t}, {0.05, Mod[t + 1/3, 1]}, {0.05, Mod[t + 2/3, 1]}}], curve}, ImageSize -> Medium], {t, 0, 1}, SaveDefinitions -> True]
Out[2]=
Play Animation
»
Stop Animation
»