Corazón Por mes de Amor y Amistad

Descargar como Notebook

Colaboración del Profesor Jony Romero

Manipulate[
 Plot[{(-x)^(2/3) + 0.9 Sqrt[3.3 - x^2] Sin[-a \[Pi] x], 
   x^(2/3) + 0.9 Sqrt[3.3 - x^2] Sin[a \[Pi] x]}, {x, -3, 3}, 
  PlotRange -> 3, Axes -> False, PlotStyle -> Red, 
  PlotPoints -> 100], {a, 1, 20, 0.5}]

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