Estudo de dispersão em mecânica quântica
Resolva a equação unidimensional de Schrödinger para uma partícula livre, que inicialmente se localiza fortemente em torno de .
In[1]:=
![Click for copyable input](assets.pt-br/study-dispersion-in-quantum-mechanics/In_90.png)
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]=
![](assets.pt-br/study-dispersion-in-quantum-mechanics/O_42.png)
A medida que o tempo aumenta, a função de onda alcança seu pico com menor intensidade na origem.
In[2]:=
![Click for copyable input](assets.pt-br/study-dispersion-in-quantum-mechanics/In_91.png)
Manipulate[
Plot[Abs@sol[x, t], {x, -10, 10}, PlotRange -> {0, 1},
PlotTheme -> "Scientific", ImageSize -> Medium], {t, 0, 5,
Appearance -> "Labeled"}]
![](assets.pt-br/study-dispersion-in-quantum-mechanics/swf_5.png)