Wolfram Language

Equações diferenciais parciais

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
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]=

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
Manipulate[ Plot[Abs@sol[x, t], {x, -10, 10}, PlotRange -> {0, 1}, PlotTheme -> "Scientific", ImageSize -> Medium], {t, 0, 5, Appearance -> "Labeled"}]
Reproduzir
Parar

Exemplos Relacionados

de en es fr ja ko ru zh