Моделирование малых колебаний в молекуле CO
В экспериментальных условиях молекула СО колеблется около равновесной длины с эффективной жесткостью пружины . Колебания регулируются уровнением квантового гармонического осциллятора. В дальнейшем,
является уменьшенной массой молекулы,
является естественной частотой колебаний,
представляет смещение от положения равновесия, и
является постоянной Планка.

qho = -(\[HBar]^2/(2 m)) Laplacian[u[x], {x}] + (m \[Omega]^2)/
2 x^2 u[x];
Вычислим первые четыре собственных значения и нормированные собственные функции.

sol = DEigensystem[qho, u[x], {x, -\[Infinity], \[Infinity]}, 4,
Assumptions -> \[HBar] > 0 && m > 0 && \[Omega] > 0,
Method -> "Normalize"]

Предположим, что частица находится в равной суперпозиции четырех состояний. Как следствие, волновая функция будет иметь следующий вид: .

\[Psi][x_, t_] = Total[MapThread[1/2 Exp[I E t #1/\[HBar]] #2 &, sol]]

Определим три параметра, ,
, и
с использованием базовых блоков атомных единиц массы, таких как фемтосекунды и пм, так как полученное значение будет близко единицe.

m = QuantityMagnitude[(
Entity["Element", "Carbon"][
EntityProperty["Element", "AtomicMass"]] Entity["Element",
"Oxygen"][EntityProperty["Element", "AtomicMass"]])/(
Entity["Element", "Carbon"][
EntityProperty["Element", "AtomicMass"]] +
Entity["Element", "Oxygen"][
EntityProperty["Element", "AtomicMass"]]), "AtomicMassUnits"]


\[Omega] =
Sqrt[QuantityMagnitude[Quantity[1.86, "Kilonewtons"/"Meters"],
"AtomicMassUnit"/"Femtoseconds"^2]/m]


\[HBar] =
QuantityMagnitude[Quantity[1., "ReducedPlanckConstant"],
"AtomicMassUnit"*"Picometers"^2/"Femtoseconds"]

Функция плотности вероятности смещения задается следующим выражением: .

\[Rho][x_, t_] =
FullSimplify[ComplexExpand[Conjugate[\[Psi][x, t]] \[Psi][x, t]]]

В качестве распределения вероятностей, интеграл над полем вещественных чисел равен 1 для всех значений
.

Chop[Integrate[\[Rho][x, t], {x, -\[Infinity], \[Infinity]}]]

Визуализируем плотность вероятности с течением времени.
