Gráficas a partir del comando AnglePath

Descargar como Notebook

Desde la versión 11.1 de Mathematica aparece dentro de la lista de comandos el comando AnglePath, con la sintaxis

Da la lista de coordenadas 2 D correspondientes al camino que comienza en {0,0} y avanza tomando pasos de una unidad con un ángulo θⱼ

Ahora, cada paso tiene una longitud de rⱼ

Por ejemplo

AnglePath[{90 Degree, 90 Degree, 90 Degree}]
{{0, 0}, {0, 1}, {-1, 1}, {-1, 0}}

Graficando la línea que une los puntos

Otras Gráficas

Graphics[Line[AnglePath[ConstantArray[110 Degree, 20]]]]

Graphics[Line[AnglePath[Range[0, 100, .01]]]]

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

Graphics[Line[
  AnglePath /@ 
   Table[{0.666^i, RandomChoice[{-Pi/3, Pi/8}]}, {10}, {i, 10}]]]

Graphics[BSplineCurve[
  Map[AnglePath[Transpose[{0.666^Range[10], #}]] &, 
   Tuples[{-Pi/3, Pi/8}, 10]]]]

Graphics@Line[
  AnglePath[
   Nest[Flatten[{1, -2, 1, #} & /@ #] &, {1, 1, 1, 1, 1}, 4] 2 Pi/5]]

A partir de una función predefinida

rot[theta_, dr_] := 
 Graphics[Line[AnglePath[Table[{r,theta}, {r, 0, 1, dr}]]]]

rot[45.2 Degree, 0.01]

rot[102.7 Degree, 0.005]

rot[119.4 Degree, 0.01]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas