Entrada destacada

Pronunciación de Nombres de Matemáticos

martes, 27 de marzo de 2018

Gráficas a partir del comando AnglePath


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


No hay comentarios.:

Publicar un comentario