Wolfram Language

Algèbre et théorie des nombres

Points dans un cercle

La fonction CirclePoints retourne des coordonnées de points également répartis sur un cercle. Voici quelques exemples de ce qui peut être fait en le combinant avec des primitives graphiques.

Dessinez des flèches pointant sur sept points équidistants sur un cercle.

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

Placez les huit premiers polygones réguliers aux sommets d'un octogone.

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

Combinez CirclePoints et 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]=

Exemples connexes

de en es ja ko pt-br ru zh