Wolfram Language

Algebra and Number Theory

Points on a Circle

The function CirclePoints returns coordinates of points equally distributed on a circle. Here are some examples of what can be done by combining it with graphics primitives.

Draw arrows pointing at seven equidistant points on a circle.

In[1]:=
Click for copyable input
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]
Out[1]=

Place the first eight regular polygons at the vertices of an octagon.

In[2]:=
Click for copyable input
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &, CirclePoints[8]]]
Out[2]=

Combine CirclePoints and BezierCurve.

In[3]:=
Click for copyable input
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]:=
Click for copyable input
Graphics[Table[ Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8], i], {i, 0, 2 Pi, Pi/16}]]
Out[4]=

Related Examples

de es fr ja ko pt-br ru zh