Inv_test/psi4_analytical/psi4-m0-a1e-08-L0.5-N3.txt
2024-02-17 23:48:28 -05:00

26561 lines
1.8 MiB

(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*((-1.0000000000000001*^-16*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2 - (1.*^-8*(-5.*^-9*(3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1 + 3*Cos[2*theta]) + (3*((21*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*((3*((21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) -
24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2))))/E^(4.*r^2) -
8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r)*
Sin[theta]^2)/4 + 3*((3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((5.*^-9*(7.500000000000001*^-9*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) +
3.0000000000000004*^-8*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) -
(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r) - Csc[theta]^2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 +
Csc[theta]^2))*((3*((-105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) -
24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2))))/E^(4.*r^2) -
8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r))/4 +
3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(-3 + Csc[theta]^2))))/
(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2 -
(5.*^-9*(-9.000000000000001*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)) +
(5.*^-9*(-9.000000000000001*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(r*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*(1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
theta])))/(r*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) +
(-1/2*(-3.0000000000000004*^-8*r*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
(r*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(1 + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2) - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(4 - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*Cos[2*theta] + 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2) + 6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*
r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(Cos[2*theta] -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^4)))/
((-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*(9.*^-8*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)/4 - 3.0000000000000004*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2))/
2) + (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1.*^-8 -
3.0000000000000004*^-8*Cos[2*theta]))/4) +
3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[2*theta])*(-8 + 3.6*^-15*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 - (3.0000000000000004*^-8*Cos[theta]*
Sin[theta]*(((4.5000000000000006*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(2 - 1.2000000000000002*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
2.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2) +
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(-2 + 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/2 + r*(3*((-15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*
r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. -
8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. -
8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) +
6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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 + 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))*r + 1.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^2 + 0.75*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 +
0.25*r^3*(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. +
0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) -
8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 -
(24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
(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)) +
((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. -
8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. -
8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))) +
1.5*r*(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)))))/r)*Sin[theta]^2)/4)))*(
-4 + 1.8*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*
r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*
r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 7.500000000000001*^-9*
r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2))*((3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1 + 3*Cos[2*theta] - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((5.*^-9*(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(
-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) -
(5.*^-9*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*(r*(2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (4.5*^-16*Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-1.8*^-7*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2) + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)))/(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] -
((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)))/(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*
(3.0000000000000004*^-8*(9.*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)/4 - 3.0000000000000004*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) - (-3.0000000000000004*^-8*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-16*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + 6.000000000000001*^-8*
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2) - 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)))/(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2)^2) -
(5.*^-9*r*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 - 3*Sin[theta]^2)))*(6*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 +
3*Sin[theta]^2)*(2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2) +
2*(-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - 3*r*((-15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) + (3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/2 + (3*r*((-105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 +
(0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
(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)))))/r)*Sin[theta]^2)/4)*(-1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 2.7*^-7*(
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2 +
2.7*^-7*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2) - (r*(2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)*(-1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)*
(3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 +
3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-8*(
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4)*(1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 - 3*Sin[theta]^2)) + 4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2))/(2*r^2*
(-9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[theta]^2*Sin[theta]^2 +
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) +
(-3.0000000000000004*^-8*r*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4)))/(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 + (3.0000000000000004*^-16*r*Cos[theta]*
Sin[theta]*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*((3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (3.0000000000000004*^-8*r*Cos[theta]*
Sin[theta]*(-1/2*((((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) - (3*((21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. -
8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
r^2))/E^(4.*r^2))) + 1.5*r*(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)))))/r)*
Sin[theta]^2)/4))*(-4 + 1.8*^-15*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + 1.*^-8*(((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-8*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*((3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] -
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((-1.0000000000000001*^-16*
((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 + (4.5*^-16*Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4)))/((2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) -
(1.*^-8*(((9.*^-8*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)^2*(1 + 3*Cos[2*theta]) + 3*((3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
(3.0000000000000004*^-8*((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)^2*Cos[theta]^2 +
3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
Cos[theta]^2 + 7.500000000000001*^-9*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-2 + 3*Sin[theta]^2) + (((21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. -
8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
r^2))/E^(4.*r^2))) + 1.5*r*(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)))))/r)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-16*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 - 2.5*^-9*(6*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) - (3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 +
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/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.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
((-5.*^-9*(-9.000000000000001*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)) -
(1.*^-8*(-((3.0000000000000004*^-8*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 3*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 - 3*Sin[theta]^2))) +
(-2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*((3*((-105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) -
24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2))))/E^(4.*r^2) -
8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r)*
Sin[theta]^2)/4 + 3*((-15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
2 + (5.*^-9*(-9.000000000000001*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(r*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*(1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
theta])))/(r*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.000000000000001*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) -
2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*
r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2/
(r^2*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r) - Csc[theta]^2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 +
Csc[theta]^2))^2) + (7.500000000000001*^-17*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2)))/(-2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2) + (1.125*^-16*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)^2 -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
(7.500000000000001*^-9*r^2*(157.5/(E^(4.*r^2)*r^4) -
(630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))))/r^2 + (0. +
4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
(384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r +
1.5*(-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 + 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))*
r + 1.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^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*
r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
6.*r*(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)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) -
8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0. + 0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. +
0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2)) -
8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r) + 4*Csc[theta]^2 -
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
3.0000000000000004*^-8*r^2*(22.5/(E^(4.*r^2)*r^4) -
(90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) +
(2.25*^-16*r^2*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)^2 + 9.*^-16*r^2*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-15*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-16*r^2*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.500000000000001*^-9*r^2*(157.5/(E^(4.*r^2)*r^4) -
(630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) -
24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2))))/E^(4.*r^2) -
8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r) + 2*
Csc[theta]^2 + 3.0000000000000004*^-8*r^2*
(22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(-3 + Csc[theta]^2)) - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.0000000000000004*^-8*
r^2*(22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*r^2*
(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) -
24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) +
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) +
2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
(96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) -
24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) -
24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2))))/E^(4.*r^2) -
8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))) + 1.5*r*(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)))))/r)*
Sin[theta]^2))/4)/(2*r^2*(7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-3 + Csc[theta]^2))^2) + (7.500000000000001*^-9*
(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
(1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Cos[theta] -
Cot[theta]*Csc[theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-6.000000000000001*^-8*Cos[theta] +
1.*^-8*Cot[theta]*Csc[theta]))*Sin[2*theta])/
(r^2*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (2.5*^-9*(-9.000000000000001*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) +
7.500000000000001*^-9*r*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 +
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 9.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-8*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
(r^2*(7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) -
Csc[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) -
((-3.0000000000000004*^-8*r*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(-1.8*^-7*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 + (3.0000000000000004*^-16*Cos[theta]*
Sin[theta]*(-1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(1.8*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(1 + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) -
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(4 - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[2*theta] +
3.0000000000000004*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) +
6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(Cos[2*theta] - 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^4)))/
((-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-16*Cos[theta]*
Sin[theta]*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*(-3*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 9.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-8*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
((2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*(9.*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)/4 - 3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2) +
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 -
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1.*^-8 - 3.0000000000000004*^-8*
Cos[2*theta]))/4) + 3.0000000000000004*^-8*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[2*theta])*(-8 + 3.6*^-15*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
6.000000000000001*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] -
3.0000000000000004*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 - (3.0000000000000004*^-8*Cos[theta]*
Sin[theta]*(-((((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - r*(((30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 -
(30*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 +
(15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^4 - (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r^2)*(1 -
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-8*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4) + 1.*^-8*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 +
(0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
(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)))))/r)*Sin[theta]^2)/4))*
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) + 1.*^-8*r*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-8*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*((3*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 +
3*Cos[2*theta] - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
((5.*^-9*(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) -
(5.*^-9*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (2.25*^-16*Cos[theta]*
(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (1.5000000000000002*^-8*
(3.0000000000000004*^-8*(9.*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)/4 - 3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 +
3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) - (-3.0000000000000004*^-8*(
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) + 6.000000000000001*^-8*
(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2) -
3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2)))/
(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) -
(2.5*^-9*(2*(9.000000000000001*^-8*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) +
3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3)*(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
3.0000000000000004*^-8*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Cos[theta]^2 +
3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 - (30*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 +
(15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r^2)*Cos[theta]^2 +
7.500000000000001*^-9*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*(-2 + 3*Sin[theta]^2) +
(((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 +
(0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) - 24.*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
(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)))))/r)*(-1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-16*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 +
3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) + 1.*^-8*
((-3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 -
3*Cos[2*theta] + 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)*(-6*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])) + (3*((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 -
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) -
(r^2*(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1/4*(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)^2/
(r^4*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 - 3*Sin[theta]^2)))^2) + (7.500000000000001*^-17*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
(-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + (2.25*^-16*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
(-3.0000000000000004*^-8*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + (2.25*^-16*Cos[theta]*
(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(-1.8*^-7*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (2.25*^-16*Cos[theta]*
(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] -
((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) +
(2.5*^-9*(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2)*(-3*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
(1 + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 9.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 +
9.*^-8*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
(r^3*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (7.500000000000001*^-9*
(-6.000000000000001*^-8*(9.*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)/4 - 3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2) + 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 + 3*Cos[2*theta])) - 6*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + 1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(1 + 3*Cos[2*theta]) + 1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) + 6.000000000000001*^-8*
(18*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) -
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2 +
r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2)))/
(r^2*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2) -
(-2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2) +
r*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Cos[theta]^2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
(3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2) + (2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.*^-8*r*(-9*(-3.75/(E^(4.*r^2)*
r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - 3*r*(22.5/(E^(4.*r^2)*r^4) -
(90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) + (9*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)/4 + (3*r*
(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 +
(297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 +
(0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
(-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 + 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))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) +
6.*r*(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)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. + 0.75*r^2) -
24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + 1.5*r*(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)) + ((0. - 8.*r)*
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) -
8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. +
0.75*r^2)) + 1.5*r^2*(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))) +
3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
(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)))))/r)*Sin[theta]^2)/4)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.35*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2 + 1.35*^-15*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2 +
1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2) -
r*(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*
(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) + 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)*
(3.0000000000000004*^-8*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
(1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-8*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2)/4)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
(2*r^3*(-9.*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 + (1 - 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^
2)) - 3.0000000000000004*^-8*r*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
Sin[theta]*((1.5000000000000002*^-16*r*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
(-9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) - (2.25*^-16*r*
((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Cos[theta]*
(1 + 3*Cos[2*theta])*Sin[theta]*
(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
(3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4)))/(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2) + (1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
(-1.8*^-7*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(-2 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
(r*(2 - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
(-1 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) +
1.35*^-15*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Sin[2*theta]^2))/(r^2*(9.*^-16*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3) + 7.500000000000001*^-9*(
5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) + (7.500000000000001*^-9*
(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) - 1.8*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
(-4 + 3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-2 + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) +
1.*^-8*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*(1 + 3*Cos[2*theta])))*
(1.8*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(1 + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) -
3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(4 - 3.0000000000000004*^-8*r*(
-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[2*theta] +
3.0000000000000004*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 + 7.500000000000001*^-9*r*(-26.25/
(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) +
1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) +
6.000000000000001*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
2)*(Cos[2*theta] - 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^4))*Sin[2*theta])/
(r*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)) - (3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(((4.5000000000000006*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-26.25/(E^(4.*r^2)*r^3) +
(105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) +
(0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2 + 3*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3)*(2 - 1.2000000000000002*^-7*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 1.*^-8*r*
(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) + (7.5/(E^(4.*r^2)*
r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2)*(-2 + 6.000000000000001*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 7.500000000000001*^-9*
r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r^2 + 0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2) + 1.*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*((-9*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) +
2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) -
(12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
Sin[theta]^2)/4 + r*(3*(22.5/(E^(4.*r^2)*r^4) -
(90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3) - (3*(157.5/(E^(4.*r^2)*r^4) -
(630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 -
(87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. -
8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. -
8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) +
6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. +
1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) +
2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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 + 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))*r + 1.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^2 + 0.75*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 +
0.25*r^3*(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) +
(64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
E^(4.*r^2)) + 6.*r*(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)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^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)*(0. +
0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) -
8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 -
(24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
(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)) +
((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. -
8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) -
8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) +
((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) -
8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./
E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
(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)))))/r)*Sin[theta]^2)/4)))*
(-4 + 1.8*^-15*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2 +
6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
1.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-2 +
3.0000000000000004*^-8*r*(-3.75/(E^(4.*r^2)*r^3) +
(15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^3) - 1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 - 7.500000000000001*^-9*r*
(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) -
6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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 + 1.5*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)) + 1.5*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.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) +
(1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2))))/r)*Sin[theta]^2))*
((3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) +
(3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(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 +
1.5*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)) +
1.5*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.*(1.5*(0. - 8.*r)*
r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) +
1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) -
(8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) +
((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. +
0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) -
8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
(2 + 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 +
3*Cos[2*theta] - 6.000000000000001*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(5.25/(E^(4.*r^2)*
r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2 + (3.0000000000000004*^-8*Sin[2*theta]*
((3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1.*^-8 - 3.0000000000000004*^-8*
Cos[2*theta]))/4) + 6.000000000000001*^-8*
(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[2*theta] + 6.000000000000001*^-8*r*(
-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 +
(15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 -
(5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Cos[2*theta] - 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) +
6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
Cos[2*theta]))*(-2 + 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) -
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)*Sin[theta]^2 - 3.0000000000000004*^-8*(0.75/(E^(4.*r^2)*
r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] +
7.500000000000001*^-9*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 -
(8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2) + 1.*^-8*
(9.*^-8*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 +
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r)/4 - 3.0000000000000004*^-8*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
(-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 +
3*Cos[2*theta])*(1 + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2) +
9.*^-8*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/
E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)^2*Sin[2*theta]^2 + 9.*^-8*r*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) -
(30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) -
8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r -
8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*(
0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 -
(6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) +
(6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
r^2)*Sin[2*theta]^2))))/
(r*(2 - 9.*^-16*(0.75/(E^(4.*r^2)*r^2) -
(3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(5.25/(E^(4.*r^2)*r^2) -
(21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. +
0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) +
(3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 +
(0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. +
(3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) +
2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r +
3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 +
(9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 -
(2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) -
(18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) -
(24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) +
(0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) -
8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 -
(3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 +
((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 +
(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2