タートルグラフィックス
AnglePathは,前の点から相対的配置を連続的に指定することで得られる2Dの点のリストを生成する.このリストはLogoプログラミング言語のタートルグラフィックス経路にあたる.
簡単なタートルグラフィックスを生成する.
In[1]:=
Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]
Out[1]=
コッホ(Koch)雪片曲線を生成する.
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]=
もう1つおもしろい曲線を生成する.
In[4]:=
Graphics[Line[AnglePath[N@Range[100000]]]]
Out[4]=