Новое в системе Wolfram
Mathematica
8: Усовершенствованная 2D и 3D графика
◄
предыдущая
|
следующая
►
Графика и визуализация
Возможность задания вида острия в изогнутых стрелках
Вращение B-сплайн кривой, у которой указан вид острия, для создания символа атома.
In[1]:=
X
Animate[Graphics[{EdgeForm[Black], Red, Disk[{0, 0}, .05], Black, Arrowheads[ Table[{0.02, p + t, Graphics[{EdgeForm[Black], Hue[2 t], Disk[]}]}, {p, {0, 0.5}}]], GeometricTransformation[ Arrow[BSplineCurve[{{-1, 0}, {0, -(1/4)}, {1, 0}, {0, 1/4}}, SplineDegree -> 3, SplineClosed -> True]], Table[RotationMatrix[(\[Theta] + 90 t) \[Degree]], {\[Theta], 0, 135, 45}]]}, PlotRange -> 2/3, ImageSize -> Medium], {t, 0, 0.5}]
Out[1]=
Play Animation
»
Stop Animation
»