Точки на окружности

Функция CirclePoints выдаёт координаты точек, равномерно расположенных на окружности. Далее представлены несколько примеров того, что может быть достигнуто путём комбинирования этой функции с базовыми графическими элементами.

Нарисовать стрелки, указывающие на семь равноотстоящих точек на окружности.

In[1]:=

Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]

Out[1]=

Разместить первые восемь правильных многоугольников на вершинах восьмиугольника.

In[2]:=

Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &, CirclePoints[8]]]

Out[2]=

Объединить CirclePoints и BezierCurve.

In[3]:=

Graphics[{ BezierCurve[{{0, 0}, ##, {2, 0}}], BezierCurve[{{0, 0}, ##, {0, 2}}], BezierCurve[{{0, 0}, ##, {-2, 0}}], BezierCurve[{{0, 0}, ##, {0, -2}}] } & /@ CirclePoints[32] ]

Out[3]=

In[4]:=

Graphics[Table[ Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8], i], {i, 0, 2 Pi, Pi/16}]]

Out[4]=