Insertar una Imagen en un Manipulate

Descargar como Notebook

Tomamos como imagen la de un carro que hemos encontrado en Google Imágenes, la incorporamos dentro de un entorno Graphics con el comando Inset[ ].

Manipulate[
 Show[Graphics[{Inset[carro, {a, b}], Arrow[{{0, 0}, {a, b}}]}, 
   Axes -> True], PlotRange -> 5], {a, -4, 4}, {b, -4, 4}]

Podemos también, modificar su posición y orientación de tal forma que de la apariencia de recorrer un camino montañoso simulado por la función seno. Su orientación la modificamos con la derivada.

Manipulate[
 Show[Plot[Sin[x], {x, 0, 2 Pi}, PlotRange -> {-2, 2}], 
  Graphics[Inset[carro, {a, Sin[a]}, Center, 1, {1, Cos[a]}]]], {a, 0, 2 Pi}]

Creación de los Gifs de cada Manipulate

Export[NotebookDirectory[] <> "carro1.gif", 
 Manipulate[
  Show[Graphics[{Inset[carro, {a, b}], Arrow[{{0, 0}, {a, b}}]}, 
    Axes -> True], PlotRange -> 5], {a, -4, 4}, {b, -4, 4}], 
 "AnimationRepetitions" -> Infinity]

Export[NotebookDirectory[] <> "carro2.gif", 
 Manipulate[
  Show[Plot[Sin[x], {x, 0, 2 Pi}, PlotRange -> {-2, 2}], 
   Graphics[Inset[carro, {a, Sin[a]}, Center, 1, {1, Cos[a]}]]], {a, 
   0, 2 Pi}], "AnimationRepetitions" -> Infinity]


Recuerde que los Gif los guarda en la misma carpeta donde se encuentra en Notebook desde el que los genera.


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