Inv_test/psi4_analytical/psi4-m0-a1e-06-L0.5-N4.txt

26521 lines
1.8 MiB
Plaintext
Raw Permalink Normal View History

2024-02-05 16:43:04 -05:00
(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-1.*^-12*((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2 - (1.*^-6*(-5.*^-7*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + (3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*((3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (2*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4 +
3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2))/Sqrt[2] + ((I/2)*r*Sin[theta]*
(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((5.*^-7*(7.5*^-7*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r))/4 +
3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) +
3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2)*((3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r))/4 +
3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) -
(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r))/4 + 3*((-15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(-3 + Csc[theta]^2))))/
(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))^2 -
(5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) +
7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) +
7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2))/
(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) +
(-1/2*(-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Cos[2*theta] + 3.*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) +
6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
(-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2) +
(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
2.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^
2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2)/2 +
r*(3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./
E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3) - (3*((-105*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^6 + (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*
r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*
(0. - 8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) -
96.*r)*(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^
2)/E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 48.*((-24.*(0. -
8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) +
6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 +
4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*r^4*(-5120./E^(4.*r^2) + 128.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) -
(2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 16.*
(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. -
8.*r) + (256.*(0. - 8.*r)*r)/E^(4.*r^2)) +
24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) +
(64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. +
2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) -
8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/
E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) -
(3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) -
24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*(0. + 2.*r^3)) + 6.*r^2*(128./
E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*
((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3))))/E^(4.*r^2) -
8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 +
1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] -
3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
r^2) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^
3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(-1 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(2 - 6.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*
((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) - 3*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) -
(5.*^-7*r*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) +
2*(-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
3*r*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3) + (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/2 + (3*r*((-105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. +
(384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 0.000027*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
2 + 0.000027*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
2)*(3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2))/(2*r^2*
(-9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
(Sqrt[2]*r) + (-3.*^-6*r*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2)*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-12*r*Cos[theta]*Sin[theta]*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(3.*^-6*r*Cos[theta]*Sin[theta]*
(-1/2*((((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) - 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3) - (3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) +
6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) +
(64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) -
(96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. -
8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. +
(384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + 1.*^-6*(((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4))*((3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((-1.*^-12*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 +
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(1.*^-6*(((9.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 3*((3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 3.*^-6*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
Cos[theta]^2 + 7.5*^-7*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(-2 + 3*Sin[theta]^2) + (((21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(21*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) +
6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) +
(64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) -
(96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. -
8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. +
(384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) - (3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 +
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)*((-3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] +
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*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.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) +
7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)) -
(1.*^-6*(-((3.*^-6*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3*
((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*((3*((-105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4 +
3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^5 - (6*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2 + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) +
7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2))/
(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) + 7.5*^-7*r*
(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) +
(7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) +
(1.125*^-12*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)^2 -
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + (297*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) +
3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r +
48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) +
6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 3*(-16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 +
4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./E^(4.*r^2) +
128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
6.*r^2*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) +
(64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. + 2.*r^3)) +
6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3))))/E^(4.*r^2) -
8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r) + 4*Csc[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) +
(2.25*^-12*r^2*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)^2 +
9.000000000000001*^-12*r^2*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 -
(72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) -
16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) +
3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) +
(384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) +
(12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2))/4)/
(2*r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))^2) +
(7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2) -
0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
(1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
Sin[2*theta])/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) +
7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) -
((-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2)*(-0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2))*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] +
3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-12*Cos[theta]*Sin[theta]*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
(-3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2) +
(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-11*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 -
(3.*^-6*Cos[theta]*Sin[theta]*
(-((((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
r^3) - (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - r*(((30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 -
(30*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 +
(15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(1 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) - 1.*^-6*((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4) + 1.*^-6*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(
3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3) - (3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. +
(384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 1.*^-6*r*(((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)/4))*((3*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) +
r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) -
0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
Sin[2*theta])/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*
(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*(
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) -
3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) -
(2.5*^-7*(2*(9.*^-6*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) + 3*((-15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*Sin[theta]^2*(3.*^-6*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + 3.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 - (30*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^5 +
(15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
7.5*^-7*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^
2) + (((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. +
(384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. +
12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 1.*^-6*((-3*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 -
3*Cos[2*theta] + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) -
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)*(-6*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) + (3*((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 -
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2))/
(2*Sqrt[2]*r) -
(r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1/4*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2)^2/(r^4*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) +
(7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
(-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-12*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) +
(2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) -
0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) -
0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(2.5*^-7*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2)*(-3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
(r^3*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*(-6.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*(-4*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2) + 0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 +
3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) - 6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 +
2*Cos[2*theta]*(4*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2) - 0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 +
3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) + 6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 6.*^-6*(18*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + 3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2) - 6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2 + r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) -
(-2*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2) + r*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) +
(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-7.5/(E^(4.*r^2)*
r^2) + (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3*r*
(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^3) + (9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/
E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 +
(3*r*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 +
(0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. -
8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 +
3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-5120./
E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(12.*(0. - 8.*r)*r -
96.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 12.*(0. - 8.*r)*r - 96.*r^2) + 12.*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 192.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 6.*r^2*
(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) +
(256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) +
(36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) +
(64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
(0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) -
8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) -
8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) -
r*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2)*(3.*^-6*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-6*(3*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 +
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)) -
3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((1.5*^-12*r*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*
r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^
3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2))/2))/(2 - 9.*^-12*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) -
(2.2500000000000003*^-12*r*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2))/r^3)*Cos[theta]*
(1 + 3*Cos[2*theta])*Sin[theta]*
(((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
(3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) +
(1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2))*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) +
(7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^2) -
0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*
(1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 +
(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] +
3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. -
8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) +
6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) -
8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
(Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^4))*Sin[2*theta])/
(r*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) -
(3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
1.*^-6*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
((-9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r)*Sin[theta]^2)/4 +
r*(3*(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 +
(39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^5 - (9*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3) - (3*(315./(E^(4.*r^2)*r^3) -
(630*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^6 + (297*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 -
(87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) +
((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. -
8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) +
6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^3 +
0.5*r^4*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) +
(0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
E^(4.*r^2)) - 16.*(12./E^(4.*r^2) + (12.*(0. -
8.*r)*r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*
r)/E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) -
(24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*
r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r -
96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) -
(8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) +
(64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. +
2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) -
8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) -
(96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. -
8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*
(0. + (384.*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) +
(64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. -
8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
(0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) -
8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) +
((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. +
2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r -
96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) -
8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*
(-4 + 1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) +
(105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) -
(672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) +
((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2))*
((3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
(13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) +
24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r +
(24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. -
(32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 +
18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 +
6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r -
96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
(8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) -
(8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) +
((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 -
(6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 +
(15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 -
(5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 +
(3.*^-6*Sin[2*theta]*((3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + ((10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) +
6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
2*theta] + 6.*^-6*r*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Cos[2*theta] - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) +
6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Cos[2*theta]))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 +
2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(1 +
7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
(9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 -
(2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2 + 9.*^-6*r*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) -
(30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 +
6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) -
(3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) +
(15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^4 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) +
(6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))))/
(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 -
(8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) +
(24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) +
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 +
((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) -
(21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) +
(2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. +
2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) +
(12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) +
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
(2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 +
(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) -
(192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) +
(2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 +
4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) -
8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 -
8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) +
(0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 -
(3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 +
((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 +
((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) -
(64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2