양자 역학의 분산 조사
초기에는 
근처에 강하게 국소화하고 있는 자유 입자에 대한 일차원 슈뢰딩거 방정식을 풉니다.
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"}]
