Özet

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]

Lisanslama

Ben, bu işin telif sahibi, burada işi aşağıdaki lisans altında yayımlıyorum:

Bu dosya Creative Commons Evrensel Kamu Malı İthafı altındadır.

Bu çalışmayı oluşturan kişi bu senet ile eser hakkında tüm dünya çapında telif hakkı yasaları kapsamında, yasalar tarafından izin verilen ölçülerde ve diğer benzer tüm haklarından feragat etmiş ve kamu malı olarak nitelendirmiştir. Siz bu çalışmayı ve eseri hiç bir izin almadan ticari amaçlar da dahil olmak üzere kopyalayabilir, değiştirebilir ve serbestçe dağıtabilirsiniz. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Aslen https://twitter.com/j_bertolotti/status/1030470604418428929 adresinde paylaşılan bu dosya, 26 Aralık 2018 tarihinde hizmetli veya inceleyici olan Ronhjones tarafından gözden geçirildi ve belirtilen tarihte belirtilen lisans altında erişilebilir olduğu doğrulandı.