The potential energy term
> H1 := x -> V0*exp(-alpha^2*x^2);
acts as a perturbation to the harmonic oscillator problem. We will
therefore want to calculate energy corrections
.
Let us start by defining
the wavefunctions of the harmonic oscillator:
> A := n -> sqrt(beta/(2^n*n!*sqrt(Pi)));
> with(orthopoly,H);
[H]
> psi0 := (n,x) -> A(n)*H(n,beta*x)*exp(-beta^2*x^2/2);
> assume(alpha>0);
> assume(beta>0);
The energy of the unperturbed oscillator is
> E0 := n -> hbar*omega0*(n+1/2);
We now calculate the correction to the energy for n=0:
> int(psi0(0,x)*H1(x)*psi0(0,x),x=-infinity..infinity);
The energy of the perturbed system for n=0 is therefore
> E0(0) + %;
The calculation is exactly analogous for the next quantum level:
> int(psi0(1,x)*H1(x)*psi0(1,x),x=-infinity..infinity);
Total energy:
> E0(1)+%;
The perturbing potential has the following appearance:
> plot(subs(V0=5e-21,alpha=1e11,H1(x)),x=-3e-11..3e-11);
(The values of V0 and of
can be arbitrarily chosen. The values I
used here correspond to values used below.)
Since the perturbation is largest near x=0, we expect the
probability density of the perturbed problem to be depressed in this
region relative to the harmonic oscillator wavefunctions. Instead of
sketching the wavefunctions, I am going to calculate them for
particular values of the parameters.
> c := (n,k) ->
int(psi0(k,x)*H1(x)*psi0(n,x),x=-infinity..infinity)/(E0(n)-E0(k));
Note that since the perturbation is even, the coefficients will only
be nonzero if both wavefunctions are either even or odd.
h := 6.6261e-34;
> hbar := h/(2*Pi);
> k := 300;
k := 300
> m := 1e-26;
> beta := sqrt(sqrt(k*m)/hbar);
> omega0 := sqrt(k/m);
> V0 := 5e-21;
> alpha:=1e11;
> evalf(c(0,2));
.02887528958
> evalf(c(0,4));
-.004731798083
The first correction term is much larger than all the others. It is
probably best just to stop at this term. The normalization factor can
be shown to be
> N0 := 1/sqrt(1 + c(0,2)^2);
so that the normalized wavefunction is
> psi_0 := x -> N0*(psi0(0,x)+c(0,2)*psi0(2,x));
Let us now plot the probability density corresponding to this
wavefunction in relation to the harmonic oscillator density:
> plot([psi0(0,x)^2,psi_0(x)^2],x=-3e-11..3e-11,
color=[red,blue],axes=FRAME);
Note that, as we predicted, the perturbed wavefunction is smaller near
x=0, where the perturbation is largest.
Now for n=1:
> evalf(c(1,3));
.03108627633
> evalf(c(1,5));
-.006576471357
Again, it is probably best just to keep the first term.
> N1 := 1/(sqrt(1+c(1,3)^2));
> psi_1 := x -> N1*(psi0(1,x)+c(1,3)*psi0(3,x));
plot([psi0(1,x)^2,psi_1(x)^2],x=-3e-11..3e-11,color=[red,blue]);
Again, the probability density is somewhat depressed near x=0and enhanced further away.