Se desarrollan temas de matemáticas con el uso del software Wolfram Mathematica. . germanalvarado@usta.edu.co
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
Suscribirse a:
Comentarios de la entrada (Atom)
No hay comentarios.:
Publicar un comentario