Gráficas tortuga
AnglePath genera la lista de puntos en 2D obtenidos mediante la especificación de los desplazamientos relativos consecutivos desde el punto anterior. Esta lista corresponde a la ruta de gráficos tortuga del lenguaje de programación Logo.
Genere un simple gráfico tortuga.
In[1]:=
![Click for copyable input](assets.es/turtle-graphics/In_64.png)
Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]
Out[1]=
![](assets.es/turtle-graphics/O_57.png)
Genere una curva de copo de nieve de Koch.
In[2]:=
![Click for copyable input](assets.es/turtle-graphics/In_65.png)
Graphics[Line[AnglePath[Array[ThueMorse, 4096] 2 Pi/3]]]
Out[2]=
![](assets.es/turtle-graphics/O_58.png)
Genere una curva de dragón.
In[3]:=
![Click for copyable input](assets.es/turtle-graphics/In_66.png)
Graphics[Line[
AnglePath[{90 \[Degree], -90 \[Degree]}[[
1 + Nest[Join[#, {0}, Reverse[1 - #]] &, {0}, 10]]]]]]
Out[3]=
![](assets.es/turtle-graphics/O_59.png)
Genere otra curva interesante.
In[4]:=
![Click for copyable input](assets.es/turtle-graphics/In_67.png)
Graphics[Line[AnglePath[N@Range[100000]]]]
Out[4]=
![](assets.es/turtle-graphics/O_60.png)