Puntos en un círculo
La función CirclePoints regresa coordinadas de puntos distribuidos uniformemente en un círculo. Aquí hay varios ejemplos de lo que se puede hacer combinándolo con primitivos de gráfico.
Trace flechas apuntando a siete puntos equidistantes en un círculo.
In[1]:=
![Click for copyable input](assets.es/points-on-a-circle/In_60.png)
Graphics[Arrow[{{0, 0}, #}] & /@ CirclePoints[7]]
Out[1]=
![](assets.es/points-on-a-circle/O_53.png)
Coloque los primeros ocho polígonos en los vértices de un octágono.
In[2]:=
![Click for copyable input](assets.es/points-on-a-circle/In_61.png)
Graphics[MapIndexed[RegularPolygon[#1, 0.25, First@#2 + 2] &,
CirclePoints[8]]]
Out[2]=
![](assets.es/points-on-a-circle/O_54.png)
Combine CirclePoints y BezierCurve.
In[3]:=
![Click for copyable input](assets.es/points-on-a-circle/In_62.png)
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]=
![](assets.es/points-on-a-circle/O_55.png)
In[4]:=
![Click for copyable input](assets.es/points-on-a-circle/In_63.png)
Graphics[Table[
Rotate[BezierCurve[{{0, 0}, #, {1, 0}}] & /@ CirclePoints[8],
i], {i, 0, 2 Pi, Pi/16}]]
Out[4]=
![](assets.es/points-on-a-circle/O_56.png)