Inv_test/psi4_analytical/psi4-m0-a1e-08-L0.5-N1.txt
Yingjie Wang 319b2bc299 update
2024-02-12 18:15:26 -05:00

13703 lines
936 KiB
Plaintext

(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Sin[theta]^2))*((-1.0000000000000001*^-16*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 - 3*Sin[theta]^2))^2)/(-2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2)^2 -
(1.*^-8*(-5.*^-9*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-1 + 3*Cos[2*theta]) + (3*((-21*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/2)^2 +
(-2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
((3*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 +
(0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
Sin[theta]^2)/4 + 3*((3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(1 - 3*Sin[theta]^2))))/
(-2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2)^2))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Sin[theta]^2))*
((5.*^-9*(7.500000000000001*^-9*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) +
3.0000000000000004*^-8*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) -
((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
r))/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-3 +
Csc[theta]^2))*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-3 + Csc[theta]^2))))/
(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))^2 -
(5.*^-9*(-9.000000000000001*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2)) + (5.*^-9*(-9.000000000000001*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2))/(r*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*(1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
theta])))/(r*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) +
((r^2*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
Sin[theta]^2)*((-1.0000000000000001*^-16*
((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4))^2)/
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
((2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(1.*^-8*(-2.5*^-9*(6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])) -
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 +
9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
((-3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 -
3*Cos[2*theta] + 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) +
((9.*^-8*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
(1 + 3*Cos[2*theta]) + 3*((3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6*
Sin[theta]^2*(3.0000000000000004*^-8*
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]^
2 + 3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 +
(6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
Cos[theta]^2 + 7.500000000000001*^-9*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) +
(((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*(-1 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2))/2))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2) -
3.0000000000000004*^-8*r*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2)*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4)))/
((2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*r*Cos[theta]*Sin[theta]*
(1.*^-8*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-8*(
-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 +
3*Cos[2*theta] - 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) -
((((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 +
(6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
(-1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
2) - 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^3) - (3*((21*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 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.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
(-4 + 1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2))/2))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) -
(r^2*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
Sin[theta]^2)*
((5.*^-9*(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2)*(r*(2 - 3.0000000000000004*^-8*r*(
-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 6.000000000000001*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(5.*^-9*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4))*(r*(2 - 3.0000000000000004*^-8*r*(
-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 6.000000000000001*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*
(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(5.*^-9*r*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(6*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) +
2*(-3*r*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^6) - 6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) + (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/2 + (3*r*
((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
(-1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-2 + 3*Sin[theta]^2)) + 2.7*^-7*
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2 + 2.7*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) -
(3.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2) + 1.*^-8*
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)) + 4.5*^-16*
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
(2*r^2*(-9.*^-16*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 + (1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))^2) + (1.5000000000000002*^-8*
(3.0000000000000004*^-8*((1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-3.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 +
Cos[theta]^2*(-3.0000000000000004*^-8*(
(-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) - (-3.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 6.000000000000001*^-8*(-3*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) -
3.0000000000000004*^-8*r*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
(1 + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
6.000000000000001*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) + 6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(Cos[2*theta] - 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
((-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(1.*^-8*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-2 + 3.0000000000000004*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.500000000000001*^-9*
r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 +
3*Cos[2*theta] - 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) +
((4.5000000000000006*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2 + 3*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 - 1.2000000000000002*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 2.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
2) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
((-3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/2 +
r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) -
(3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. -
8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 +
(0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
(-4 + 1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2))/2))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-8 -
3.0000000000000004*^-8*Cos[2*theta]))/4) +
3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[2*theta])*
(-8 + 3.6*^-15*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
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.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Sin[theta]^2))*
((-5.*^-9*(-9.000000000000001*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 - 3*Sin[theta]^2)))/(r*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2)) -
(1.*^-8*((-2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
Sin[theta]^2)/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^6)*(1 - 3*Sin[theta]^2)) - (3.0000000000000004*^-8*(
-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta]) +
1.5000000000000002*^-8*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 -
3*Sin[theta]^2))))/(-2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2)^2 +
(5.*^-9*(-9.000000000000001*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2))/(r*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*(1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
theta])))/(r*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2] +
((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Sin[theta]^2))*
(-1/4*(-9.000000000000001*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r) - 2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
2))^2/(r^2*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-3 + Csc[theta]^2))^2) +
(7.500000000000001*^-17*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (21*
(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/4 +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 - 3*Sin[theta]^2)))/(-2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(1.125*^-16*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)^2 - 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(7.500000000000001*^-9*r^2*
(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/
E^(4.*r^2) + 0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r) +
4*Csc[theta]^2 - 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
3.0000000000000004*^-8*r^2*(5.625/(E^(4.*r^2)*r^6) +
(39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^6)*(-3 + Csc[theta]^2)) +
(2.25*^-16*r^2*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)^2 + 9.*^-16*r^2*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) -
1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 +
9.*^-16*r^2*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-15*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
(7.500000000000001*^-9*r^2*(39.375/(E^(4.*r^2)*r^6) +
(297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
r) + 2*Csc[theta]^2 + 3.0000000000000004*^-8*r^2*
(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^6)*(-3 + Csc[theta]^2)) - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.0000000000000004*^-8*
r^2*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^6)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*r^2*
(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
Sin[theta]^2))/4)/(2*r^2*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
2))^2) + (7.500000000000001*^-9*
(4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-4 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta]) + 1.*^-8*(-0.375/(E^(4.*r^2)*
r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Csc[theta]*
(1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta] - Cot[theta]*Csc[theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
theta]))*Sin[2*theta])/(r^2*(7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(2.5*^-9*(-9.000000000000001*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) -
(56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]^2 +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
9.*^-8*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2 + 9.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) -
9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
(r^2*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - Csc[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
(Sqrt[2]*r) -
((r^2*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
Sin[theta]^2)*
((5.*^-9*(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2)*(r*(2 - 3.0000000000000004*^-8*r*(
-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 6.000000000000001*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(5.*^-9*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4))*(r*(2 - 3.0000000000000004*^-8*r*(
-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 6.000000000000001*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)))/
(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(2.25*^-16*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-4 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta]) + 1.*^-8*(-0.375/(E^(4.*r^2)*
r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(2.5*^-9*(1.*^-8*((-3*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3*Cos[2*theta] +
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) - 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
9.*^-8*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
(-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])) +
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 -
9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) +
2*(9.000000000000001*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta]) + 3*((15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^6)*(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
3.0000000000000004*^-8*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*Cos[theta]^2 + 3.0000000000000004*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 +
(15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r^2)*Cos[theta]^2 + 7.500000000000001*^-9*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) +
(((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 -
(48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(1.5000000000000002*^-8*(3.0000000000000004*^-8*
((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-3.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 +
Cos[theta]^2*(-3.0000000000000004*^-8*(
(-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 +
3*Cos[2*theta]) - 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) - (-3.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta]) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 6.000000000000001*^-8*(-3*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) -
3.0000000000000004*^-8*r*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2)*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)))/
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*
((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4)))/
((2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]*
(1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
(1 + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
6.000000000000001*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) + 6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(Cos[2*theta] - 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
((-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(1.5000000000000002*^-16*Cos[theta]*Sin[theta]*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
9.*^-8*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2 + 9.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) -
9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
((2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(1.*^-8*r*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-8*(
-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) -
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-8*(
-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) - r*(((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 -
(5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r^2)*(1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-8*(
1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4) - 1.*^-8*(
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(3*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4) + 1.*^-8*(
-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(3*((15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^6) - (3*((105*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(7.500000000000001*^-9*Sin[2*theta]*
(-8.*^-8*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-8 -
3.0000000000000004*^-8*Cos[2*theta]))/4) +
3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[2*theta])*
(-8 + 3.6*^-15*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 6.000000000000001*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
1.8*^-15*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) -
(r^2*(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
Sin[theta]^2)*
(-1/4*(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
(r^4*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2)*(1 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))^2) +
(7.500000000000001*^-17*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
(3.0000000000000004*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]^2 +
(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)))/4)))/
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)^2*Sin[2*theta]^2) +
(2.25*^-16*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
Cos[theta]^2*(-3.0000000000000004*^-8*
((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(1 + 3*Cos[2*theta]) +
((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])))*Sin[theta]^2)/
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)^2*Sin[2*theta]^2) + (2.25*^-16*Cos[theta]*
(4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-4 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta]) + 1.*^-8*(-0.375/(E^(4.*r^2)*
r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(2.25*^-16*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-4 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta]) + 1.*^-8*(-0.375/(E^(4.*r^2)*
r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
(6.000000000000001*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
(r^2*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(2.5*^-9*(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*
r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2)*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
9.*^-8*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2 + 9.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) -
9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
(r^3*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(r*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(3.0000000000000004*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) +
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.*^-8*r*(-3*r*(5.625/(E^(4.*r^2)*
r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) - 9*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
(9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 + (3*r*
(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
(-1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*
(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[2*theta]^2 + 1.35*^-15*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 1.35*^-15*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) -
2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))*(r*(2 - 3.0000000000000004*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) -
r*(3.0000000000000004*^-8*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(-2 + 3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2) + 1.*^-8*(3*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
(3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)) + 4.5*^-16*(1.875/(E^(4.*r^2)*
r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 7.500000000000001*^-9*r*
(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
(2*r^3*(-9.*^-16*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
Sin[theta]^2 + (1 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2)*(1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(2 - 3*Sin[theta]^2)))^2) + (7.500000000000001*^-9*
(-6.000000000000001*^-8*((1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) + 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])) - 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
(4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 +
3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*
r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 6.000000000000001*^-8*(18*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)))*Sin[2*theta]^2*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2)))/(r^2*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) -
3.0000000000000004*^-8*r*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
((1.5000000000000002*^-16*r*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
Cos[theta]*Sin[theta]*(-9.*^-8*((6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Cos[theta]^2*Sin[theta]^2 -
(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) -
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2))/2))/
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)^2*Sin[2*theta]^2) -
(2.25*^-16*r*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
(1 + 3*Cos[2*theta])*Sin[theta]*
(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 - 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
1.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) +
0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)^2*Sin[2*theta]^2) + (1.5000000000000002*^-8*Cos[theta]*
Sin[theta]*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(-2 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*
(r*(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(
0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 +
3*Sin[theta]^2)) + 1.35*^-15*r*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[2*theta]^2))/
(r^2*(9.*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 -
(1 - 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4) + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(1 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(2 - 3*Sin[theta]^2)))*
(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) +
(7.500000000000001*^-9*(4*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-4 + 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 +
3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(1 + 3*Cos[2*theta]) + 1.*^-8*(-0.375/(E^(4.*r^2)*
r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])))*
(1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 +
(1 + 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
(2 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 3.0000000000000004*^-8*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
6.000000000000001*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] +
3.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 +
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) + 6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 +
(6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*(Cos[2*theta] - 7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4))*
Sin[2*theta])/(r*(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 6.000000000000001*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 - 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) -
(3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
(1.*^-8*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 1.*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) +
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-2 + 3.0000000000000004*^-8*r*
(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.500000000000001*^-9*
r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2))*
((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*(2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 +
3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] -
6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
9.*^-8*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2) +
((4.5000000000000006*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2 + 3*(-0.9375/(E^(4.*r^2)*
r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 +
(15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(2 + 1.*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) -
1.2000000000000002*^-7*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) + 3.0000000000000004*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) +
1.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
2) + (1.875/(E^(4.*r^2)*r^5) + (15*(0. +
(0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-2 + 6.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4) - 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
7.500000000000001*^-9*r*(-6.5625/(E^(4.*r^2)*r^5) -
(48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
((-9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 -
(3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 +
(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) -
(1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. -
8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) -
16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
E^(4.*r^2))/r)*Sin[theta]^2)/4 +
r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. -
8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 -
(90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^6) - (3*(39.375/(E^(4.*r^2)*r^6) +
(297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 +
(19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 -
(4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. -
8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r +
(8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 +
(0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) +
(640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. -
8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) +
(0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) +
0.0625*r*(-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.*(0. - 8.*r)*(-8./E^(4.*r^2) +
(64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
(-4 + 1.8*^-15*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*Sin[theta]^2 + 1.5000000000000002*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(4 - 12*Cos[2*theta] - 3.0000000000000004*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2))/2))/(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(1.3125/
(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 +
(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 +
3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 +
(3.0000000000000004*^-8*Sin[2*theta]*
((3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + ((1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-8 -
3.0000000000000004*^-8*Cos[2*theta]))/4) +
6.000000000000001*^-8*r*(1.875/(E^(4.*r^2)*r^5) +
(15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 -
(5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Cos[2*theta] + 6.000000000000001*^-8*
(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(3*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) +
6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
(-2 + 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*(
1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 -
3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) +
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) +
0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2) + 1.*^-8*((1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 +
9.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 -
3.0000000000000004*^-8*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] +
3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 +
2.5*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. -
8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*(1 +
7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) +
(9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 -
(2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2) + 9.*^-8*r*(
1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 -
(30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[2*theta]^2 +
9.*^-8*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(3*r*(-0.9375/(E^(4.*r^2)*r^5) -
(6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
(1 + 3*Cos[2*theta]) - 9*(-0.375/(E^(4.*r^2)*r^4) -
(3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 +
(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) +
0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
2))))/(r*(2 - 9.*^-16*(0.1875/(E^(4.*r^2)*r^4) +
(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 -
(3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) +
(0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) +
0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) -
8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) -
(40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)*Sin[theta]^2 + 3.0000000000000004*^-8*
(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) +
(0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) -
(2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) +
(0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) +
(0. - 8.*r)^4/E^(4.*r^2))*r)/r -
(21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) -
4.5*^-16*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) +
(0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/
(Sqrt[2]*r))/2