摘要
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]
许可协议
我,本作品著作权人,特此采用以下许可协议发表本作品:
|
本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。
|
| 采用本宣告发表本作品的人,已在法律允许的范围内,通过在全世界放弃其对本作品拥有的著作权法规定的所有权利(包括所有相关权利),将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品,将其用于商业目的,无需要求授权。
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
|