Inv_test/psi4_analytical/psi4-m0-a1e-08-L1-N1.txt
2024-02-17 23:48:28 -05:00

7467 lines
521 KiB
Plaintext

(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*((-1.0000000000000001*^-16*
((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)^2 -
(1.*^-8*(-5.*^-9*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-1 +
3*Cos[2*theta]) + (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/2)^2 + (-2 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((3*((21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
Sin[theta]^2)/4 + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(1 - 3*Sin[theta]^2))))/(-2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2))/
Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((5.*^-9*(7.500000000000001*^-9*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) -
10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)) +
3.0000000000000004*^-8*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-3 + Csc[theta]^2)*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r))/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-3 + Csc[theta]^2)) -
(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r))/4 +
3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(-3 + Csc[theta]^2))))/(7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) - Csc[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2 -
(5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)) + (5.*^-9*(-9.000000000000001*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.000000000000001*^-8*
Cos[theta] + 1.*^-8*Cot[theta]*Csc[theta])))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) +
(-1/2*(-3.0000000000000004*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
((1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4))*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]*(1.8*^-15*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 6.000000000000001*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[2*theta] +
3.0000000000000004*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 6.000000000000001*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(Cos[2*theta] - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^4)))/
((-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
2 + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)/4 - 3.0000000000000004*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-1 +
3*Cos[2*theta])))*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/
2) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + ((21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1.*^-8 - 3.0000000000000004*^-8*Cos[2*theta]))/4) +
3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Cos[2*theta])*(-8 + 3.6*^-15*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(((4.5000000000000006*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 -
1.2000000000000002*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 2.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(-2 + 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2) + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/2 +
r*(3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^5 - (6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) - (3*((-105*(E^(-r^2) - (2*r^2)/
E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 8*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) - 2*r*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))))/r)*Sin[theta]^2)/4)))*(-4 +
1.8*^-15*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
2*(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2))/2 + 1.*^-8*(-1.8*^-7*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) +
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(-2 +
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2))*
((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(-1 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2)*
(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(5.*^-9*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Cos[theta]^2 +
(((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4))*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(-2 + 3.0000000000000004*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/(r*(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(6.000000000000001*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Cos[2*theta] -
((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/(r*(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*(3.0000000000000004*^-8*
(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)/4 - 3.0000000000000004*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] + 3*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(-1 +
3*Cos[2*theta])))*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
(-3.0000000000000004*^-8*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2) - (-3.0000000000000004*^-8*((3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-16*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2) + 6.000000000000001*^-8*(3*((3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2)))/(r*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^
2) - (5.*^-9*r*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 2*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
3*r*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) + (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
2 + (3*r*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)) + 2.7*^-7*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2 + 2.7*^-7*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2) - (r*(2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2)*(3.0000000000000004*^-8*(
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-2 + 3*Sin[theta]^2)*(1 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(
3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^
2)) + 4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2))/(2*r^2*(-9.*^-16*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 +
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
(Sqrt[2]*r) + (-3.0000000000000004*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
(-9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^
5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2)*
(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4)))/
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4))*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4)))/((2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*r*Cos[theta]*Sin[theta]*
(-1/2*((((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 +
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) -
1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) - (3*((21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 + (9*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4))*(-4 + 1.8*^-15*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 3.0000000000000004*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
1.*^-8*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4))*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta] -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((-1.0000000000000001*^-16*
((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Cos[theta]^2 +
(((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4))^2)/
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 +
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4)))/
((2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(1.*^-8*(((9.*^-8*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)^2*
(1 + 3*Cos[2*theta]) + 3*((3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
(3.0000000000000004*^-8*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)^2*Cos[theta]^2 +
3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 +
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2)*Cos[theta]^2 +
7.500000000000001*^-9*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(-2 + 3*Sin[theta]^2) + (((21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (21*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (9*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(2*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)))/4))*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2))/2 - 2.5*^-9*(6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])) - (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/2 + 9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)*((-3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 - 3*Cos[2*theta] +
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^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.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)) -
(1.*^-8*(-((3.0000000000000004*^-8*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)*
((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4 + 3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 -
3*Sin[theta]^2))) + (-2 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
Sin[theta]^2)/4 + 3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(1 - 3*Sin[theta]^2))))/(-2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2)^2 +
(5.*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Cos[theta] - Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6.000000000000001*^-8*
Cos[theta] + 1.*^-8*Cot[theta]*Csc[theta])))/
(r*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))^2/(r^2*(7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^
2) + (7.500000000000001*^-17*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
((3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 + (20/E^r^2 -
(40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/E^r^2) -
10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) +
r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4 +
3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 - 3*Sin[theta]^2)))/
(-2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (1.125*^-16*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)^2 -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(7.500000000000001*^-9*r^2*(630/(E^r^2*r^6) - (630*(E^(-r^2) -
(2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 +
((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r) + 4*Csc[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
3.0000000000000004*^-8*r^2*(90/(E^r^2*r^6) - (90*(E^(-r^2) -
(2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(-3 + Csc[theta]^2)) + (2.25*^-16*r^2*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)^2 + 9.*^-16*r^2*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-15*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 - 3*Cos[2*theta])^2*
Csc[theta]^4 + 9.*^-16*r^2*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)^2*(1 - 3*Cos[2*theta])^2*Csc[theta]^4 +
4*Csc[theta]^2*(7.500000000000001*^-9*r^2*(630/(E^r^2*r^6) -
(630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 +
((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r) + 2*Csc[theta]^2 +
3.0000000000000004*^-8*r^2*(90/(E^r^2*r^6) -
(90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3)*(-3 + Csc[theta]^2)) -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*
(8 + 3.0000000000000004*^-8*r^2*(90/(E^r^2*r^6) -
(90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*r^2*(630/(E^r^2*r^6) -
(630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (297*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (87*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 + (19*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r^2 +
((-96*r)/E^r^2 + 24*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
12*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) -
2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r)*Sin[theta]^2))/4)/
(2*r^2*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))^2) +
(7.500000000000001*^-9*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Csc[theta]*(1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-6.000000000000001*^-8*Cos[theta] +
1.*^-8*Cot[theta]*Csc[theta]))*Sin[2*theta])/
(r^2*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-9*(-9.000000000000001*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) +
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) + (105*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^
2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/
E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*Csc[theta]^2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-3 + Csc[theta]^2))*(-3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
(r^2*(7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) -
((-3.0000000000000004*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
(-9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^
5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2)*
(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4)))/((2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]*(1.8*^-15*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2 + (1 + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 6.000000000000001*^-8*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Cos[2*theta] +
3.0000000000000004*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 6.000000000000001*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(Cos[2*theta] - 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^4)))/((-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-16*Cos[theta]*Sin[theta]*
(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4))*(-3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
((2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
2 + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.0000000000000004*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] +
3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
(-9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2))/
2) + (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1.*^-8 - 3.0000000000000004*^-8*
Cos[2*theta]))/4) + 3.0000000000000004*^-8*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[2*theta])*(-8 + 3.6*^-15*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 6.000000000000001*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(4 - 12*Cos[2*theta] -
3.0000000000000004*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(-((((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(1 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2) +
1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4))*(2 - 9.*^-16*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^
2)) - r*(((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 -
(30*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 +
(15*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 -
(5*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2)*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) - 1.*^-8*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4) +
1.*^-8*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 - (2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2 +
(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4) + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 - (6*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^3) - (3*((-105*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(105*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(48*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (3*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4))*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
1.*^-8*r*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + 1.*^-8*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (21*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (2*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4))*((3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2)*
(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*
r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(5.*^-9*((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4))*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*
r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(6.000000000000001*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Cos[2*theta] -
((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(2 - 6.000000000000001*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)))/
(r*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(2.25*^-16*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*(3.0000000000000004*^-8*
(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.0000000000000004*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] +
3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
(-3.0000000000000004*^-8*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.0000000000000004*^-8*(
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) -
(-3.0000000000000004*^-8*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
6.000000000000001*^-8*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2) - 3*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*((-6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
(r*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) -
(2.5*^-9*(2*(9.000000000000001*^-8*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) +
3*((-15*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(6*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 +
3*Cos[2*theta])) + 6*Sin[theta]^2*(3.0000000000000004*^-8*
(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 + (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 - (3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*Cos[theta]^2 +
3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((30*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 - (30*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 + (15*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^4 - (5*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^3 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^2)*
Cos[theta]^2 + 7.500000000000001*^-9*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(-2 + 3*Sin[theta]^2) + (((-105*(E^(-r^2) - (2*r^2)/
E^r^2))/r^6 + (105*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^5 - (48*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^4 + (13*((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r^3 -
(3*(20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 + (4*r^2)/
E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*
(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4))*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
1.*^-8*((-3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 -
3*Cos[2*theta] + 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) -
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)*(-6*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])) + (3*((21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/2 - 9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2))/
(2*Sqrt[2]*r) -
(r^2*(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(-1/4*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2)^2/
(r^4*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^
2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) +
(7.500000000000001*^-17*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
((3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(
(-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2 + (((21*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(21*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)))/4)))/(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-16*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]^2*(-3.0000000000000004*^-8*
((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2)/(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-16*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(2.25*^-16*Cos[theta]*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[theta]*(6.000000000000001*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] -
((21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta])))/
4 + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(2 - 6.000000000000001*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-9*(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 3.0000000000000004*^-8*
r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2)*
(-3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*
Sin[2*theta]^2 + 9.*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2)))/
(r^3*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(7.500000000000001*^-9*(-6.000000000000001*^-8*
(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.0000000000000004*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] +
3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
(-4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2) + 1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + (-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(-4 + 3.0000000000000004*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) - 6*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2) - 1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(-4 + 3.0000000000000004*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(1 +
3*Cos[2*theta])) + 6*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
6.000000000000001*^-8*(18*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)^2 + 3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) -
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2 + r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/
r^2)))*Sin[2*theta]^2*(-2 + 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)))/
(r^2*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2) -
(-2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(r*(2 - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2) +
r*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-2 + 3*Sin[theta]^2)*(2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + (2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.*^-8*r*(-9*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - 3*r*(90/(E^r^2*r^6) -
(90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 + (39*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) + (9*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2)/
4 + (3*r*(630/(E^r^2*r^6) - (630*(E^(-r^2) - (2*r^2)/E^r^2))/
r^6 + (297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))))/r^2 + ((-96*r)/E^r^2 + 24*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 36*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 12*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))) + r*(-8/E^r^2 +
(16*r^2)/E^r^2 + 8*(-2/E^r^2 + (4*r^2)/E^r^2) +
4*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
8*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)*(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 + 3*Sin[theta]^
2)) + 1.35*^-15*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Sin[2*theta]^2 + 1.35*^-15*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
Sin[2*theta]^2 + 1.35*^-15*r*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2) - r*(r*(2 - 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2)*
(3.0000000000000004*^-8*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*
(-2 + 3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
1.*^-8*(3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
(3*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4)*(1 + 3.0000000000000004*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(2 - 3*Sin[theta]^2)) + 4.5*^-16*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2))/(2*r^3*(-9.*^-16*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 +
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))^
2)) - 3.0000000000000004*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Cos[theta]*Sin[theta]*
((1.5000000000000002*^-16*r*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[theta]*Sin[theta]*(-9.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) - 7.500000000000001*^-9*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2))/2))/
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) -
(2.25*^-16*r*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*Cos[theta]*(1 + 3*Cos[2*theta])*
Sin[theta]*(((-6*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(3*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(3*((3*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) - (3*((21*(E^(-r^2) - (2*r^2)/
E^r^2))/r^5 - (21*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (9*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(2*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)/4)))/(2 - 9.*^-16*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*
(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
(1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(1 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2) + (-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-2 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*(r*(2 - 6.000000000000001*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) + 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) +
(7.500000000000001*^-9*(4*r*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2) -
1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3)*(1 + 3*Cos[2*theta])) +
6*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(-2 + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-8*r*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
(1 + 3*Cos[2*theta])))*(1.8*^-15*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2 +
(1 + 7.500000000000001*^-9*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 3.0000000000000004*^-8*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3) + 6.000000000000001*^-8*(
-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Cos[2*theta] +
3.0000000000000004*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2) + 6.000000000000001*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(Cos[2*theta] - 7.500000000000001*^-9*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^4))*Sin[2*theta])/
(r*(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(((4.5000000000000006*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^2 +
3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(2 -
1.2000000000000002*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3) + 3.0000000000000004*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) + 1.*^-8*r*
(30/(E^r^2*r^5) - (30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 +
(15*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2) + 1.5000000000000002*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + (30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2)*(-2 + 6.000000000000001*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/
E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*Sin[theta]^
2) + 1.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*
((-9*(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/
r^5 - (48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^4 + (13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r)*Sin[theta]^2)/4 +
r*(3*(90/(E^r^2*r^6) - (90*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(39*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^5 -
(9*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^3) - (3*(630/(E^r^2*r^6) -
(630*(E^(-r^2) - (2*r^2)/E^r^2))/r^6 +
(297*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^5 - (87*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/
E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^4 +
(19*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^3 - (4*(20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/
E^r^2 + 4*r*(-2/E^r^2 + (4*r^2)/E^r^2) -
6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) -
2*r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 +
(4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))))/r^2 + ((-96*r)/E^r^2 +
24*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 36*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 12*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) + r*(-8/E^r^2 + (16*r^2)/E^r^2 +
8*(-2/E^r^2 + (4*r^2)/E^r^2) + 4*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 8*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))) - 2*r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))))/r)*Sin[theta]^
2)/4)))*(-4 + 1.8*^-15*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 3.0000000000000004*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2))/
2 + 1.*^-8*(-1.8*^-7*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/
E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/
E^r^2))/r^3)^2 + 6*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 1.*^-8*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) + (-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(-2 + 3.0000000000000004*^-8*r*
(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3) -
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-105/(E^r^2*r^5) + (105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(48*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(13*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 -
(3*((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))))/r^2 + (20/E^r^2 - (40*r^2)/E^r^2 -
20*(-2/E^r^2 + (4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 +
4*r*(-2/E^r^2 + (4*r^2)/E^r^2) - 6*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)) - 2*r*(4/E^r^2 -
(8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r)*Sin[theta]^2))*((3*(-105/(E^r^2*r^5) +
(105*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (48*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (13*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^3 - (3*((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/
r^2 + (20/E^r^2 - (40*r^2)/E^r^2 - 20*(-2/E^r^2 +
(4*r^2)/E^r^2) - 10*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) + r*((-16*r)/E^r^2 + 4*r*(-2/E^r^2 +
(4*r^2)/E^r^2) - 6*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)) - 2*r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))))/r)*
(2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]))*
Sin[theta]^2)/4 + 3*(-15/(E^r^2*r^5) + (15*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3)*(
-1 + 3*Cos[2*theta] - 6.000000000000001*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2)))/(2 - 9.*^-16*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*(
1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-8*Sin[2*theta]*
((3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + ((21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2))))/r^2 + ((32*r)/E^r^2 -
8*r*(-2/E^r^2 + (4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/
E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*
((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
(1.*^-8 - 3.0000000000000004*^-8*Cos[2*theta]))/4) +
6.000000000000001*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^
2*Cos[2*theta] + 6.000000000000001*^-8*r*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2)))/r^2)*(30/(E^r^2*r^5) - (30*(E^(-r^2) -
(2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^4 - (5*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Cos[2*theta] - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3) + 6*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*Cos[2*theta]))*
(-2 + 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*(
1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2) +
1.*^-8*(9.*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^
2 + (21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
(9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 -
(2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)/
4 - 3.0000000000000004*^-8*(-6/(E^r^2*r^4) +
(6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 - (3*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Cos[2*theta] +
3*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 +
((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(-1 +
2.5*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/
r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(-1 + 3*Cos[2*theta])))*
(-3*r*(-15/(E^r^2*r^5) + (15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 -
(6*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta])*(1 +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*Sin[theta]^2) +
9.*^-8*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2 +
9.*^-8*r*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)*(30/(E^r^2*r^5) -
(30*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 + (15*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 -
(5*(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^3 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/E^r^2) -
2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2)*
Sin[2*theta]^2 + 3.0000000000000004*^-8*(3/(E^r^2*r^4) -
(3*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)*(3*r*(-15/(E^r^2*r^5) +
(15*(E^(-r^2) - (2*r^2)/E^r^2))/r^5 - (6*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^4 + (-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3)*(1 + 3*Cos[2*theta]) -
9*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*
(-2/E^r^2 + (4*r^2)/E^r^2)))/r^2)*Sin[2*theta]^2))))/
(r*(2 - 9.*^-16*(3/(E^r^2*r^4) - (3*(E^(-r^2) - (2*r^2)/E^r^2))/
r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(21/(E^r^2*r^4) -
(21*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 +
r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 +
(12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r^2 + ((32*r)/E^r^2 - 8*r*(-2/E^r^2 +
(4*r^2)/E^r^2) + r*(4/E^r^2 - (8*r^2)/E^r^2 -
4*(-2/E^r^2 + (4*r^2)/E^r^2) - 2*r*((8*r)/E^r^2 -
2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(3/(E^r^2*r^4) - (3*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + ((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(21/(E^r^2*r^4) - (21*(E^(-r^2) -
(2*r^2)/E^r^2))/r^4 + (9*((-4*r)/E^r^2 + r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^3 - (2*(-6/E^r^2 + (12*r^2)/E^r^2 +
r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/E^r^2))))/r^2 +
((32*r)/E^r^2 - 8*r*(-2/E^r^2 + (4*r^2)/E^r^2) +
r*(4/E^r^2 - (8*r^2)/E^r^2 - 4*(-2/E^r^2 + (4*r^2)/
E^r^2) - 2*r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 + (4*r^2)/
E^r^2))))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-6/(E^r^2*r^4) + (6*(E^(-r^2) - (2*r^2)/E^r^2))/r^4 -
(3*((-4*r)/E^r^2 + r*(-2/E^r^2 + (4*r^2)/E^r^2)))/r^3 +
(-6/E^r^2 + (12*r^2)/E^r^2 + r*((8*r)/E^r^2 - 2*r*(-2/E^r^2 +
(4*r^2)/E^r^2)))/r^2)^2*Sin[2*theta]^2)^2)))/
(2*Sqrt[2]*r))/(Sqrt[2]*r))/2