Inv_test/psi4_analytical/psi4-m0-a1e-06-L2-N4.txt
Yingjie Wang 1bf03503b0 init
2024-02-05 16:43:04 -05:00

14194 lines
967 KiB
Plaintext

(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(
-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-1.*^-12*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4 + 3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)^2 -
(1.*^-6*(-5.*^-7*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta]) +
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*((3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
Sin[theta]^2)/4 + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)^2))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Sin[theta]^2))*
((5.*^-7*(7.5*^-7*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) +
3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)*
((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r))/4 + 3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-3 + Csc[theta]^2)) -
(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 +
Csc[theta]^2))*((3*((-105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r))/4 +
3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(-3 + Csc[theta]^2))))/
(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))^2 -
(5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
(r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
Sqrt[2]))/(Sqrt[2]*r) +
(-1/2*(-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
((1.5*^-6*Cos[theta]*Sin[theta]*(((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4))*
(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
Cos[2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] - 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2))/2) +
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 -
(3.*^-6*Cos[theta]*Sin[theta]*(((4.5*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 2.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + ((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^3 - (3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) +
96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((-3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/2 +
r*(3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^4 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r^3) -
(3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^5 - (48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^4 + (13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) +
(32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 - (3*((-312*r)/
E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^2 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 9.*^-12*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 + 6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] -
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*
r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(
-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[2*theta] - ((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))/4 +
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(2 - 6.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)^2 + (42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] + 3*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2)^2) -
(5.*^-7*r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 +
3*Sin[theta]^2)*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) +
2*(-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
3*r*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3) + (3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
2 + (3*r*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 -
(3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) +
0.000027*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 +
0.000027*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)*(-1 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
(3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*(
1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + 1.*^-6*(3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
(1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(2 - 3*Sin[theta]^2)) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2))/(2*r^2*
(-9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) +
(-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2)*(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-12*r*Cos[theta]*Sin[theta]*
(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4))*
((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(3.*^-6*r*Cos[theta]*Sin[theta]*
(-1/2*((((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 +
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) - 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3) - (3*((21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(21*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^4 + (9*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 -
(2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
4))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2)) + 1.*^-6*(((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
4))*((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 + 3*Cos[2*theta] -
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
((-1.*^-12*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 +
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4)))/
((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(1.*^-6*(((9.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 3*((3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^5 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) + 6*
Sin[theta]^2*(3.*^-6*((-6*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)^2*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((-6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 +
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 +
7.5*^-7*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*(-2 +
3*Sin[theta]^2) + (((21*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^5 - (21*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (9*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (2*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/
4))) - 240*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 24*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
16*r^3*((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 +
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)*((-3*((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Cos[2*theta] +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta]) -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 +
((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
(r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)) -
(1.*^-6*(-((3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*((3*((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 + 3*
((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2))) +
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*((3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 -
(3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
Sin[theta]^2)/4 + 3*((-15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (6*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2))/(r*(7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(2 - 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*(1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-3 + Csc[theta]^2))^2/
(r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r) - Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-3 +
Csc[theta]^2))^2) +
(7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4 +
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3*Sin[theta]^2)))/
(-2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2) +
(1.125*^-12*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)^
2 - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*
r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*
(7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2)))/r^2 + (-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) -
(128*r^4)/E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*
((-5*r)/(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r) +
4*Csc[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^6 + (39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^3)*
(-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)^2 + 9.000000000000001*^-12*r^2*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 +
9.*^-12*r^2*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.5*^-7*r^2*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r) + 2*
Csc[theta]^2 + 3.*^-6*r^2*(180/(E^(r^2/4)*r^3) -
(90*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(39*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/2) +
16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/2))/r)*
Sin[theta]^2))/4)/(2*r^2*
(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-3 + Csc[theta]^2))^2) +
(7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
(1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Cos[theta] - Cot[theta]*Csc[theta] + 3*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
Sin[2*theta])/(r^2*(7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-7*(-9.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) +
7.5*^-7*r*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/r^
2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Csc[theta]^2 +
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-3 + Csc[theta]^2))*(-3*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
(r^2*(7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 - (2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r) -
Csc[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-3 + Csc[theta]^2))*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2))))/
Sqrt[2]))/(Sqrt[2]*r) -
((-3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2)*(-0.000018*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2))*
((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^4)))/((-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-12*Cos[theta]*Sin[theta]*
(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4))*
(-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
((2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2))/2) +
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 - 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) - 6.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(4 -
12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-11*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 -
(3.*^-6*Cos[theta]*Sin[theta]*
(-((((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^3 - (2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 + ((-312*r)/
E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/E^(r^2/4) +
96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2)) - r*(((30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 - (30*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 + (15*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 - (5*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) - 1.*^-6*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) -
(3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
4) + 1.*^-6*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
4) + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3) - (3*((-105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^6 + (105*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(48*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(13*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 -
(3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
4))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*r*(((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 - (3*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(
3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
4))*((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] -
((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*
(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) - (-3.*^-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) + 6.*^-6*(3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2) - 3*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2)))/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) -
(2.5*^-7*(2*(9.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) +
3*((-15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(6*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) +
6*Sin[theta]^2*(3.*^-6*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + 3.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^6 -
(30*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 +
(15*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^4 -
(5*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^3 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r^2)*Cos[theta]^2 +
7.5*^-7*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3)*((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-2 +
3*Sin[theta]^2) + (((-105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (105*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (48*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (13*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (3*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*(-1 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 -
3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*((-3*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 -
3*Cos[2*theta] + 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]) - 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)*(-6*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3)*(1 + 3*Cos[2*theta])) +
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*(2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 -
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2))/
(2*Sqrt[2]*r) -
(r^2*(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/
(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2)*
(-1/4*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)^2/
(r^4*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))^2) +
(7.5*^-13*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
(-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[theta]^2 + (((21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (21*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (2*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(-1 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 -
6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-12*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) +
(32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]^2*
(-3.*^-6*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 -
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(-0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + 6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(2.25*^-12*Cos[theta]*(4*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[2*theta] -
((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(1 + 3*Cos[2*theta])))/4 + (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-7*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
(-3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)))/
(r^3*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*(-6.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + (42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*(-4*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2) + 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) -
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 +
2*Cos[2*theta]*(4*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) + 6.*^-6*(18*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2) - 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2 + r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2)))/
(r^2*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2) -
(-2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2) +
r*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) + (2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) - 3*r*
(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3) + (9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4 +
(3*r*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (297*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (87*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (19*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^3 - (4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
240*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
32*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
288*r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 64*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
96*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
48*r^2*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) - 8*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
24*r^2*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2) + 2*r^4*
(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/4)*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 +
1.3499999999999999*^-11*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2 +
1.3499999999999999*^-11*r*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) - 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2)*
(3.*^-6*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(-2 + 3*Sin[theta]^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(3*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/4)*
(1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 + (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(2 - 3*Sin[theta]^2)))^2)) -
3.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[theta]*Sin[theta]*
((1.5*^-12*r*((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*
r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
2)))/r^3 + (48/E^(r^2/4) - (144*r^2)/E^(r^2/4) +
(32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r^2)*Cos[theta]*Sin[theta]*
(-9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*((-6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 - (3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) +
(4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2))/2))/(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) -
(2.2500000000000003*^-12*r*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*Cos[theta]*
(1 + 3*Cos[2*theta])*Sin[theta]*
(((-6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(3*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^2)*
(1 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) + 7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + 1.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*
(3*((3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) -
(3*((21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(21*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(9*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(2*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
32*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
96*r^2*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) - 8*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
16*r^3*(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) - (144*r^2)/
E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) + 2*r^4*
(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/r)*Sin[theta]^2 +
3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2) +
(1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2) + (-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2))*
(r*(2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3) - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^
4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/
r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*(4*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r^
2) - 0.000018*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-4 + 3.*^-6*r*(
-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
3*Cos[2*theta])) + 6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-2 + 1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(1 + 3*Cos[2*theta])))*
(1.8*^-11*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2 + (1 + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3) + 1.5*^-6*(
42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 3.*^-6*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3) +
6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*Cos[
2*theta] + 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/
2 - (r*((3*r)/(4*E^(r^2/4)) - r^3/(8*E^(r^2/4))))/2) +
8*r^3*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2) + 2*r^4*(-1/4*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2))/r)*Sin[theta]^2) + 6.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(Cos[2*theta] -
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^4))*Sin[2*theta])/
(r*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 6.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)) -
(3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2 + 3*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*
(2 - 0.000012*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/r^3) + 3.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2) +
1.*^-6*r*(60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 + (15*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 - (5*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + (60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*(-2 + 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3) -
1.5*^-6*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2) +
1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
((-9*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2)/
4 + r*(3*(180/(E^(r^2/4)*r^3) - (90*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^6 + (39*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^5 - (9*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^4 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^3) - (3*(1260/(E^(r^2/4)*r^3) - (630*((8*r^3)/
E^(r^2/4) - r^5/E^(r^2/4)))/r^6 +
(297*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^5 -
(87*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/
r^4 + (19*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) +
(32*r^4)/E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2)))/r^3 -
(4*((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2)))/r^2 +
(-312/E^(r^2/4) + (684*r^2)/E^(r^2/4) - (128*r^4)/
E^(r^2/4) + 96*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 240*r^2*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 32*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 288*r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
64*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 96*r^2*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 48*r^2*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
8*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2) + 24*r^2*
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)) +
(1/(2*E^(r^2/4)) - r^2/(4*E^(r^2/4)))/2 -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2) + 16*r^3*((-5*r)/
(4*E^(r^2/4)) + r^3/(8*E^(r^2/4)) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2 -
(r*(3/(4*E^(r^2/4)) - (5*r^2)/(8*E^(r^2/4)) +
(r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4))/
2) + 16*r^3*(-1/4*r/E^(r^2/4) + (r*(-1/2*
1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/4 +
(3*(-1/2*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/2 - (r*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
2) + 2*r^4*(-1/8*1/E^(r^2/4) + r^2/(16*E^(r^2/4)) +
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))/2 +
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/4 + 2*(-3/(4*E^(r^2/4)) +
(3*r^2)/(8*E^(r^2/4)) + (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) -
(r*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/2))/r)*Sin[theta]^2)/
4)))*(-4 + 1.8*^-11*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 1.5*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(4 - 12*Cos[2*theta] - 3.*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(1 +
1.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2) + 7.5*^-7*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + (-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(-2 + 3.*^-6*r*
(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) - 1.5*^-6*
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-210/(E^(r^2/4)*r^2) +
(105*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(48*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
(13*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 -
(3*(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/
E^(r^2/4) + 48*r^2*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) - 8*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 16*r^3*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) +
2*r^4*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2)))/r^2 +
((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) - (16*r^5)/
E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) + r^2/(4*
E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*Sin[theta]^2))*
((3*(-210/(E^(r^2/4)*r^2) + (105*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (48*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + (13*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^3 - (3*(48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2)))/
r^2 + ((-312*r)/E^(r^2/4) + (200*r^3)/E^(r^2/4) -
(16*r^5)/E^(r^2/4) + 96*r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) - 32*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 96*r^2*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2) -
8*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 16*r^3*(1/(2*E^(r^2/4)) -
r^2/(4*E^(r^2/4)) + (1/(2*E^(r^2/4)) - r^2/
(4*E^(r^2/4)))/2 - (r*((3*r)/(4*E^(r^2/4)) -
r^3/(8*E^(r^2/4))))/2) + 8*r^3*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2) +
2*r^4*(-1/4*r/E^(r^2/4) + (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/4 + (3*(-1/2*r/E^(r^2/4) +
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2 -
(r*(3/(4*E^(r^2/4)) - (3*r^2)/(8*E^(r^2/4)) -
(r*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/2))/2))/r)*(2 + 3.*^-6*
(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(1 + 3*Cos[2*theta]) + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^
3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-6*Sin[2*theta]*((3*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 +
((42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
6.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[2*theta] + 6.*^-6*r*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)*(60/(E^(r^2/4)*r^2) -
(30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 +
(15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Cos[2*theta] - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3) + 6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*
Cos[2*theta]))*(-2 + 9.*^-12*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 - 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)^2 +
(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 + (9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)/
4 - 3.*^-6*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)^
2*Cos[2*theta] + 3*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)*(-1 + 2.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-30/(E^(r^2/4)*r^2) +
(15*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^5 -
(6*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta])*(1 +
7.5*^-7*(42/(E^(r^2/4)*r) - (21*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + (9*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^3 - (2*((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r)*Sin[theta]^2) + 9.*^-6*(-12/(E^(r^2/4)*r) +
(6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 -
(3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/r^2)*(
60/(E^(r^2/4)*r^2) - (30*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^5 + (15*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^4 -
(5*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^3 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/
r^2)*Sin[2*theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*(
3*r*(-30/(E^(r^2/4)*r^2) + (15*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^5 - (6*((24*r^2)/E^(r^2/4) -
(8*r^4)/E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4)))))/r^4 + ((48*r)/E^(r^2/4) -
(44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/
E^(r^2/4)))/r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4)))))/r^3 + ((48*r)/E^(r^2/4) - (44*r^3)/
E^(r^2/4) + (4*r^5)/E^(r^2/4) + 8*r^3*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 2*r^4*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2))/r^2)*Sin[2*theta]^2))))/
(r*(2 - 9.*^-12*(6/(E^(r^2/4)*r) - (3*((8*r^3)/E^(r^2/4) -
r^5/E^(r^2/4)))/r^4 + ((24*r^2)/E^(r^2/4) - (8*r^4)/
E^(r^2/4) + 2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2)))/r^2 + (48/E^(r^2/4) -
(144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) + 48*r^2*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) - 8*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) + 16*r^3*
(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
Sin[theta]^2 + 3.*^-6*(6/(E^(r^2/4)*r) -
(3*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(42/(E^(r^2/4)*r) -
(21*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/r^4 +
(9*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) + 2*r^4*
(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 -
(2*((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/
E^(r^2/4) + 8*r^3*(-1/2*1/E^(r^2/4) + r^2/
(4*E^(r^2/4))) + 2*r^4*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2)))/r^2 +
(48/E^(r^2/4) - (144*r^2)/E^(r^2/4) + (32*r^4)/E^(r^2/4) +
48*r^2*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) -
8*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
16*r^3*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2) + 2*r^4*(3/(4*E^(r^2/4)) -
(3*r^2)/(8*E^(r^2/4)) - (r*(r/(2*E^(r^2/4)) -
(r*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))))/2))/2))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-12/(E^(r^2/4)*r) + (6*((8*r^3)/E^(r^2/4) - r^5/E^(r^2/4)))/
r^4 - (3*((24*r^2)/E^(r^2/4) - (8*r^4)/E^(r^2/4) +
2*r^4*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4)))))/r^3 +
((48*r)/E^(r^2/4) - (44*r^3)/E^(r^2/4) + (4*r^5)/E^(r^2/4) +
8*r^3*(-1/2*1/E^(r^2/4) + r^2/(4*E^(r^2/4))) +
2*r^4*(r/(2*E^(r^2/4)) - (r*(-1/2*1/E^(r^2/4) +
r^2/(4*E^(r^2/4))))/2))/r^2)^2*Sin[2*theta]^2)^2)))/
(2*Sqrt[2]*r))/(Sqrt[2]*r))/2