Черепашья графика

AnglePath генерирует список двухмерных точек, полученных путём указания последовательных относительных перемещений по отношению к предыдущей точке. Список соответствует траектории черепашьей графики на языке программирования Лого.

Сгенерирровать простую черепашью графику.

In[1]:=

Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]

Out[1]=

Сгенерирровать контур снежинки Коха.

In[2]:=

Graphics[Line[AnglePath[Array[ThueMorse, 4096] 2 Pi/3]]]

Out[2]=

Сгенерирровать кривую дракона.

In[3]:=

Graphics[Line[ AnglePath[{90 \[Degree], -90 \[Degree]}[[ 1 + Nest[Join[#, {0}, Reverse[1 - #]] &, {0}, 10]]]]]]

Out[3]=

Сгенерирровать другую интересную кривую.

In[4]:=

Graphics[Line[AnglePath[N@Range[100000]]]]

Out[4]=