Entrada destacada

Pronunciación de Nombres de Matemáticos

martes, 18 de abril de 2017

Punto moviéndose sobre la gráfica de una función


Se desea crear una presentación dinámica de un punto que se mueva a lo largo de la gráfica de una función.

Primero vamos a graficar la función digamos sen(x) entre 0 y 10,

Plot[Sin[x], {x, 0, 10}]



Ahora, graficamos el punto y lo ubicamos sobre la gráfica de seno, esto lo logramos dándole por segunda componente el seno de la primera {2,Sin[2]}. Para graficar un punto en el plano debemos utilizar Point dentro de un entorno Graphics, y para mostrar las dos gráficas sobre un mismo plano cartesiano utilizamos el comando Show:

Show[Plot[Sin[x], {x, 0, 10}], Graphics[Point[{2, Sin[2]}]]]



Para cambiar tamaño y color del punto:

Show[Plot[Sin[x], {x, 0, 10}], 
 Graphics[{Red, PointSize[0.04], Point[{2, Sin[2]}]}]]




Utilizamos el comando Manipulate para volver dinámico el anterior gráfico estático :

Manipulate[
 Show[Plot[Sin[x], {x, 0, 10}], 
  Graphics[{Red, PointSize[0.04], Point[{a, Sin[a]}]}]], {a, 0, 10}]




Para que se mueva sin necesidad de mover el slider, podemos utilizar el comando Trigger (gatillo):

Manipulate[
 Show[Plot[Sin[x], {x, 0, 10}], 
  Graphics[{Red, PointSize[0.04], Point[{a, Sin[a]}]}]], {a, 0, 10, 
  ControlType -> Trigger}]



Si queremos que vaya dejando un rastro de su paso :

Manipulate[
 Show[Plot[Sin[x], {x, 0, 10}], 
  Plot[Sin[x], {x, -0.0001, a^2}, PlotStyle -> Red], 
  Graphics[{Red, PointSize[0.04], Point[{a^2, Sin[a^2]}]}]], {a, 0, 
  Sqrt[10], ControlType -> Trigger}]





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