Заслуженный участник |
|
28/04/16 2395 Снаружи ускорителя
|
Последний раз редактировалось madschumacher 03.03.2023, 20:58, всего редактировалось 1 раз.
Я тоже посчитать решил в wxMaxima. В качестве источника взял Википедию. А в качестве потенциала, взял просто (без всяких приведений и прочего). И действительно тоже везде имею нули. Странно, учитывая, что данный потенциал имеет и , поэтому по-идее по теореме сложения моментов, должны получаться ненулевые матричные элементы в первом порядке теории возмущений, поскольку складывая и мы получаем возможные , и складывая с (потенциал) мы должны получать полносимметричное представление ( ). (код для вычисления в wxMaxima)
Код: f1(theta,phi) := sin(theta)^2 * exp(-2* %i * phi); f2(theta,phi) := sin(theta)*cos(theta) * exp(- %i *phi); f3(theta,phi) := 3*cos(theta)^2 -1; f4(theta,phi) := sin(theta)*cos(theta) * exp(+ %i *phi); f5(theta,phi) := sin(theta)^2 * exp(+2* %i * phi);
J(theta) := sin(theta);
V(theta,phi) := cos(phi) * sin(phi) * sin(theta)^2 * cos(theta);
integrate(integrate(conjugate(f1(theta,phi)) * V(theta,phi) * f1(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f1(theta,phi)) * V(theta,phi) * f2(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f1(theta,phi)) * V(theta,phi) * f3(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f1(theta,phi)) * V(theta,phi) * f4(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f1(theta,phi)) * V(theta,phi) * f5(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi)
integrate(integrate(conjugate(f2(theta,phi)) * V(theta,phi) * f2(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f2(theta,phi)) * V(theta,phi) * f3(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f2(theta,phi)) * V(theta,phi) * f4(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f2(theta,phi)) * V(theta,phi) * f5(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi);
integrate(integrate(conjugate(f3(theta,phi)) * V(theta,phi) * f3(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f3(theta,phi)) * V(theta,phi) * f4(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f3(theta,phi)) * V(theta,phi) * f5(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi);
integrate(integrate(conjugate(f4(theta,phi)) * V(theta,phi) * f4(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi); integrate(integrate(conjugate(f4(theta,phi)) * V(theta,phi) * f5(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi);
integrate(integrate(conjugate(f5(theta,phi)) * V(theta,phi) * f5(theta,phi) * J(theta), theta, 0, %pi), phi, 0, 2*%pi);
|
|