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]:=
Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]Out[1]=
Genere una curva de copo de nieve de Koch.
In[2]:=
Graphics[Line[AnglePath[Array[ThueMorse, 4096] 2 Pi/3]]]Out[2]=
Genere una curva de dragón.
In[3]:=
Graphics[Line[
AnglePath[{90 \[Degree], -90 \[Degree]}[[
1 + Nest[Join[#, {0}, Reverse[1 - #]] &, {0}, 10]]]]]]Out[3]=
Genere otra curva interesante.
In[4]:=
Graphics[Line[AnglePath[N@Range[100000]]]]Out[4]=
