Черепашья графика
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]=
