Wolfram
Mathematica
8의 신기능: 향상된 2D 및 3D 그래픽
◄
이전
|
다음
►
그래픽 및 시각화
곡선 화살표에서 화살촉의 사용자 정의
사용자 지정 화살촉을 가진 B-spline 곡선을 회전시켜 원자 기호를 창조합니다.
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
»
