(((-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