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

22763 lines
1.5 MiB

(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
(4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
((-1.*^-12*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Sin[theta]^2))^2)/
(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2)^2 -
(1.*^-6*(-5.*^-7*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. +
0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-1 + 3*Cos[2*theta]) + (3*((-21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
((3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) +
((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r)*
Sin[theta]^2)/4 + 3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 -
3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2)^2))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
(4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
((5.*^-7*(7.5*^-7*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 +
Csc[theta]^2)) + 3.*^-6*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-3 + Csc[theta]^2)*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 +
Csc[theta]^2)) - (7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 +
Csc[theta]^2))*((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (48*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) +
((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r))/4 +
3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 +
Csc[theta]^2))))/(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))^2 -
(5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. +
1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 - 3*Sin[theta]^2)))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2)) +
(5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
(1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) +
(-1/2*(-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((1.5*^-6*Cos[theta]*Sin[theta]*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(3*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4))*
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
(r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2) -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 - 3.*^-6*r*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2) +
6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
(-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 -
3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
(-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*((-21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2 +
3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 2.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 +
3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. +
0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r + 0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) +
0.5*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)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/2 +
r*(3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) -
(3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/
r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) -
8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) -
8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) -
8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. +
0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./
E^(4.*r^2) + (0. - 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.25*r) + 0.5*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4)))*(-4 +
1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 3.*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 -
8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) -
(5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 1.*^-6*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3.*^-6*r*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 3*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)^2) - (5.*^-7*r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
(6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 +
3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2) +
2*(-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
3*r*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) +
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/2 + (3*r*((105*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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))))/
r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-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)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) -
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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 - 8.*(0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4)*(-1 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) +
0.000027*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 +
0.000027*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) -
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
(3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 +
3*Sin[theta]^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)) +
4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
(2*r^2*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
2*Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2)))/
(Sqrt[2]*r) + (-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4))*
((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
(-1/2*((((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) -
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) -
(3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*(0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + 1.*^-6*(((6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4))*((3*((-21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 +
3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
((-1.*^-12*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2 + (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4)))/
((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) -
(1.*^-6*(((9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. +
0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
(1 + 3*Cos[2*theta]) + 3*((3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*
(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6*
Sin[theta]^2*(3.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)^2*Cos[theta]^
2 + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r^2)*
Cos[theta]^2 + 7.5*^-7*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
(-2 + 3*Sin[theta]^2) + (((21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*(0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. -
8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^
2)))/4))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))/2 - 2.5*^-7*(6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
2 + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 -
3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 +
((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
(4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
((-5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. +
1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 - 3*Sin[theta]^2)))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2)) -
(1.*^-6*(-((3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*
((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4 + 3*
((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) +
((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r)*
Sin[theta]^2)/4 + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 -
3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2)^2 +
(5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
(1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
(r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
(4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*
r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. +
1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
2))^2/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 +
Csc[theta]^2))^2) +
(7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta])*
((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. +
1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 - 3*Sin[theta]^2)))/
(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2) + (1.125*^-12*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)^2 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
(7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (87*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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))))/r^2 +
(0. + 32./E^(4.*r^2) + 0.25*(-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)) -
8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) +
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) +
0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r) + 4*Csc[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (9*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) +
(2.25*^-12*r^2*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)^2 +
9.000000000000001*^-12*r^2*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. +
1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*
(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 9.*^-12*r^2*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-11*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 -
(87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) +
((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r) + 2*
Csc[theta]^2 + 3.*^-6*r^2*(11.25/(E^(4.*r^2)*r^5) +
(39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 +
Csc[theta]^2)) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 -
(9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-1 +
3*Cos[2*theta]) + 1.5*^-6*r^2*(78.75/(E^(4.*r^2)*r^5) +
(297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) - 8.*(-4./E^(4.*r^2) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) +
((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) -
8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) +
1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
E^(4.*r^2)) + 0.5*r*(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))))/r)*
Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
2))^2) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 +
3*Cos[2*theta])))*Csc[theta]*
(1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
Sin[2*theta])/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) +
(2.5*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r) -
2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
2)))/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r) - Csc[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) -
((-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2 + (3.*^-12*Cos[theta]*Sin[theta]*
(-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2))*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 +
3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] -
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4))*
(-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*
r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
2)))/((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
(-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 -
3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 -
3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
(-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 6.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 -
12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2 - (3.*^-6*Cos[theta]*Sin[theta]*
(-((((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r + 0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) +
0.5*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)))/r)*Sin[theta]^2)/
4))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - r*(((-30*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 + (15*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 -
(5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r^2)*(1 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) -
1.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4) + 1.*^-6*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) -
(3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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))))/
r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-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)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) -
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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 - 8.*(0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4))*
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 1.*^-6*r*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)/4))*((3*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 +
3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) -
(5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) +
(1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 -
3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) -
3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)^2) -
(2.5*^-7*(2*(9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. +
0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1.875/
(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta]) + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) +
6*Sin[theta]^2*(3.*^-6*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((-30*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 + (15*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 -
(5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r^2)*Cos[theta]^2 + 7.5*^-7*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-2 + 3*Sin[theta]^2) +
(((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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))))/
r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-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)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) -
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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 - 8.*(0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 -
3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 1.*^-6*((-3*(-13.125/(E^(4.*r^2)*r^4) -
(48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 -
3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
(-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) +
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
2 - 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2))/(2*Sqrt[2]*r) -
(r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(-1/4*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
(r^4*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2) +
(7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta])*
((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 +
(((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*Sin[2*theta]^2) +
(2.25*^-12*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 -
8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) +
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) +
(2.5*^-7*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2)*(-3*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
2)))/(r^3*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 -
3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) +
(7.5*^-7*(-6.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 -
3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-4*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) +
0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) + (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 +
3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])) - 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) -
0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 +
3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 6.*^-6*(18*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) -
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)^2) -
(-2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*
r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) +
r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2) +
(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-1.875/(E^(4.*r^2)*
r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 3*r*
(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 -
(9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) +
(9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4 + (3*r*
(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 -
(87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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))))/r^2 +
(0. + 32./E^(4.*r^2) + 0.25*(-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)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) -
12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) - 8.*
(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. -
8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.25*r) +
0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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 - 8.*(0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) -
8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) -
(8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4)*
(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 +
1.3499999999999999*^-11*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 +
1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2) -
r*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
(3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
(2*r^3*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))^2)) -
3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((1.5*^-12*r*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) +
0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 -
8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 +
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^5)*Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
(3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*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 - 8.*
(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
(-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 +
6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) +
1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 +
(6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2))/
(r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 -
3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 -
(5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) +
(15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 +
3*Cos[2*theta])))*(1.8*^-11*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2 + (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2)) - (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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] -
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4))*
Sin[2*theta])/(r*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
(((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2 + 3*(-1.875/(E^(4.*r^2)*
r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 1.5*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 +
6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(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 - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r) + 0.5*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)))/r)*
Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
((-9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
r + 0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) +
0.5*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)))/r)*Sin[theta]^2)/
4 + r*(3*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) -
(3*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 +
(19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 -
(4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
(0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. -
8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) +
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r +
0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(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 - 8.*((0.5*(0. -
8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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))))/r^2 + (0. + 32./E^(4.*r^2) +
0.25*(-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)) -
8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. +
0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) -
8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) -
2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) -
8.*(0.25*(-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. + 0.25*r)) -
8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. +
0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) +
((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
(0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.25*r) + 0.5*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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 -
8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) +
0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r) + 0.125*r^2*(-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)) + 1.*
(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) +
(192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
r)/E^(4.*r^2)) + 0.5*r*(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))))/r)*Sin[theta]^2)/4)))*
(-4 + 1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 +
1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.375/(E^(4.*r^2)*
r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) +
7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 +
3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) -
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*Sin[theta]^2))*
((3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
(13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 -
(3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) +
((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 +
(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. +
0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) -
(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) +
((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) -
2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r +
0.125*(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 -
8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*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)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 +
3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*
(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
2 + (3.*^-6*Sin[2*theta]*((3*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 -
3.*^-6*Cos[2*theta]))/4) + 6.*^-6*(-0.75/(E^(4.*r^2)*
r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
2*theta] + 6.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta] -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) +
6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 -
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 1.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 -
3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 -
(2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 +
3*Cos[2*theta])))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) -
(6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) +
9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 +
3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 +
((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) -
(3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) -
(2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
2))))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) +
(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 -
(3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) +
1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) +
((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. -
2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) +
0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) +
(9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) -
(8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. +
0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) +
0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r +
(0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 +
(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) -
8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) +
(0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) +
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*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 - 8.*(0.25/E^(4.*r^2) +
(0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) +
((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) +
0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) +
(0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2