研究量子力学中的色散
求解初始时强定域在 周围的自由粒子一维薛定谔(Schrödinger)方程.
In[1]:=

eqn = I D[\[Psi][x, t], t] == D[\[Psi][x, t], {x, 2}];
sol[x_, t_] =
DSolveValue[{eqn, \[Psi][x, 0] == Exp[-x^2]}, \[Psi][x, t], {x, t}]
Out[1]=

随着时间推移,波动函数在原点的峰会变得比较平缓.
In[2]:=

Manipulate[
Plot[Abs@sol[x, t], {x, -10, 10}, PlotRange -> {0, 1},
PlotTheme -> "Scientific", ImageSize -> Medium], {t, 0, 5,
Appearance -> "Labeled"}]
