Wolfram Language

Álgebra e teoria dos números

Gráficos tartaruga

AnglePath gera a lista de pontos em 2D obtida especificando deslocamentos relativos consecutivos a partir do ponto anterior. Esta lista corresponde a rota de gráficos tartaruga da linguagem de programação Logo.

Gere um gráfico tartaruga simples.

In[1]:=
Click for copyable input
Graphics[Line[AnglePath[ConstantArray[110 \[Degree], 100]]]]
Out[1]=

Gere uma curva de floco de neve de Koch.

In[2]:=
Click for copyable input
Graphics[Line[AnglePath[Array[ThueMorse, 4096] 2 Pi/3]]]
Out[2]=

Gere uma curva de dragão.

In[3]:=
Click for copyable input
Graphics[Line[ AnglePath[{90 \[Degree], -90 \[Degree]}[[ 1 + Nest[Join[#, {0}, Reverse[1 - #]] &, {0}, 10]]]]]]
Out[3]=

Gere outra curva interessante.

In[4]:=
Click for copyable input
Graphics[Line[AnglePath[N@Range[100000]]]]
Out[4]=

Exemplos Relacionados

de en es fr ja ko ru zh