Resumen

Mathematica 11.0 code

f = FullSimplify[
   FourierTransform[
    E^(-(\[Omega] - \[Omega]0)^2/(2 \[Sigma]^2))
      E^(-I \[Omega]^2/v x), \[Omega], t], 
   Assumptions -> {\[Sigma] > 0}];
p1 = Table[
   Show[
    Plot[Re[f] /. {\[Omega]0 -> 1, v -> 2, \[Sigma] -> 0.2}, {x, -5, 
      200}, PlotRange -> {-0.2, 0.2}, PlotStyle -> {Orange, Thick}]
    ,
    Plot[{Abs[f], -Abs[f]} /. {\[Omega]0 -> 1, 
       v -> 2, \[Sigma] -> 0.2}, {x, -5, 200}, 
     PlotRange -> {-0.2, 0.2}, PlotStyle -> {Black, Black}]
    , Axes -> False
    ]
   , {t, 0, 100, 0.5}];
ListAnimate[p1]

Licencia

Yo, el titular de los derechos de autor de esta obra, la publico en los términos de la siguiente licencia:

Este archivo está disponible bajo la licencia Creative Commons Dedicación de Dominio Público CC0 1.0 Universal.

La persona que ha asociado una obra a este documento lo dedica al dominio público mediante la cesión mundial de sus derechos bajo la ley de derechos de autor y todos los derechos legales adyacentes propios de dicha, en el ámbito permitido por ley. Puedes copiar, modificar, distribuir y reproducir el trabajo, incluso con objetivos comerciales, sin pedir aprobación del autor. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Este archivo, el cual fue publicado originalmente en https://twitter.com/j_bertolotti/status/1030470604418428929, fue revisado el 26 December 2018 por el revisor Ronhjones, quien confirmó que en esa fecha estaba disponible bajo la licencia indicada.