"Atomic transitions 5" "Verify equation (1)" cx = ax exp(i bx) cy = ay exp(i by) cz = az exp(i bz) ex = sin(theta) cos(phi) ey = sin(theta) sin(phi) ez = cos(theta) r = ex cx + ey cy + ez cz A = defint(r conj(r) sin(theta), theta, 0, pi, phi, 0, 2 pi) / (4 pi) B = 1/3 cx conj(cx) + 1/3 cy conj(cy) + 1/3 cz conj(cz) check(A == B) "ok" Run