(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]* (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^ (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^ 3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Sin[theta]^2))* ((-1.*^-12*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/ (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^ 2 - (1.*^-6*(-5.*^-7*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1 + 3*Cos[2*theta]) + (3*((21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/2)^2 + (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*((3*((21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)* Sin[theta]^2)/4 + 3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3)*(1 - 3*Sin[theta]^2))))/ (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^ 2))/Sqrt[2] + ((I/2)*r*Sin[theta]* (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^ (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^ 3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Sin[theta]^2))* ((5.*^-7*(7.5*^-7*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) + 3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) - (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r))/4 + 3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3)*(-3 + Csc[theta]^2))))/ (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))^2 - (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/ (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + (-1/2*(-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^ (4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]* Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4))* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/ (r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(2 - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*Cos[2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(Cos[2*theta] - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^4)))/ ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]* (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2))/ 2) + (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[2*theta])*(-8 + 3.6*^-11* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 6.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]* (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 2.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75* r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/2 + r*(3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75* r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/ E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)* r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 0.75*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)* r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r* (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/ E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/ E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.* (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3* r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75* r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.* ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75* r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))*( -4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2))*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3* ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^ (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)* ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*( -1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]^2*(-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(2 - 6.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) - (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) + 6.*^-6*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2) - 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2)^2) - (5.*^-7*r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2) + 2*(-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - 3*r*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) + (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/2 + (3*r*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^ 2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r* (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 0.000027*( (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2 + 0.000027*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*( 0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* Sin[2*theta]^2)*(3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*( 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2))/(2*r^2* (-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + (-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]* Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^ 3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^ 3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]* (-1/2*((((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) - (3*((21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75* r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/ r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.* ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75* r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)* Sin[theta]^2)/4))*(-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + 1.*^-6*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)* ((-1.*^-12*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4))^2)/ (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]^2*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4)))/((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (1.*^-6*(((9.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)^2*(1 + 3*Cos[2*theta]) + 3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2* (3.*^-6*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)* Cos[theta]^2 + 7.5*^-7*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-2 + 3*Sin[theta]^2) + (((21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75* r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/ r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.* ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75* r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^ (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^ 3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Sin[theta]^2))* ((-5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2)) - (1.*^-6*(-((3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-26.25/(E^(4.*r^2)* r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 3* ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*((3*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)* Sin[theta]^2)/4 + 3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3)*(1 - 3*Sin[theta]^2))))/ (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^ 2 + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/ (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^ (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^ 3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Sin[theta]^2))* (-1/4*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) + (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^ (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^ (4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2) + (1.125*^-12*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)^2 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2* (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)* r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r) + 4*Csc[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2* (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)^2 + 9.000000000000001*^-12* r^2*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/ r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))* r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2* (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r) + 2* Csc[theta]^2 + 3.*^-6*r^2*(22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2* (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2* (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)* r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)* Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))^2) + (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]* (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))* Sin[2*theta])/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/ E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))* (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/ (r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - ((-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]* Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]* (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))* ((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2 + (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[ 2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^4)))/ ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^ 3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])* (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/ ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]* (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2) + (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]* (-((((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - r*(((30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 - (30*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^4 - (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*(1 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4) + 1.*^-6*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^ 2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r* (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4))* (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) + 1.*^-6*r* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*((3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)* ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*( -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))* (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*( -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]* (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^ 3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4))*Sin[2*theta])/ (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) - (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))*Sin[theta]^2* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) + 6.*^-6* (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)* r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2)))/ (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2) - (2.5*^-7*(2*(9.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6* (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Cos[theta]^2 + 3.*^-6* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 - (30*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r^2)*Cos[theta]^2 + 7.5*^-7* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*(-2 + 3*Sin[theta]^2) + (((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^ 2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r* (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*(-1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) + 1.*^-6* ((-3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)*(-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) + (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - (r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)* (-1/4*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)^2/ (r^4*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))^2) + (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^ (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^ (4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)))/4)))/ (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) + (2.25*^-12* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^ (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]^2* (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))* Sin[theta]^2)/(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2* (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) + (2.25*^-12*Cos[theta]* (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]* (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (2.5*^-7*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*( -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*Sin[2*theta]^2)*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])* (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/ (r^3*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (7.5*^-7*(-6.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2) + 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) - 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))* Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) + 6.*^-6* (18*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2 + r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)))*Sin[2*theta]^2* (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2)))/ (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2) - (-2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2) + r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)* (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2) + (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - 3*r*(22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) + (9*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4 + (3*r* (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5* (-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3* (-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/ E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^ 2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)* ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r* (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* Sin[2*theta]^2 + 1.3499999999999999*^-11*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* Sin[2*theta]^2 + 1.3499999999999999*^-11*r* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - r*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r* (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)* (3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) - (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/ (2*r^3*(-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2* Sin[theta]^2 + (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (2 - 3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]* Sin[theta]*((1.5*^-12*r*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25* (0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^ (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]* (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)* Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) - (2.2500000000000003*^-12*r* ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Cos[theta]* (1 + 3*Cos[2*theta])*Sin[theta]* (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^ 3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2* (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]* (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))* (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*( -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)* (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))* (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) + (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^ 2)*(-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*(1 + 3*Cos[2*theta])))* (1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*( -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[ 2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^4))*Sin[2*theta])/ (r*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]* (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2 + 3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + (7.5/(E^(4.*r^2)* r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/ E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*((-9*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/ E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.* (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + r*(3*(22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))* r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3) - (3*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)* (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/ E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)* r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/ E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r))*r + 3.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 1.5*(0. - 8.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 + 0.75*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*r^3*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 2*r*(96./E^(4.*r^2) - 6.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/ E^(4.*r^2)) + 6.*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)* r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r* (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/ E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/ E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.* (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3* r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/ E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/ E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.* ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./ E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r* (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))* (-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.75/(E^(4.*r^2)* r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r* (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r* ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/ E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2))* ((3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (12.*(0. - 8.*r))/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r))*r + 4.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) - (8.*(1.5*(0. - 8.*r)* r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/ E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/ E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*( 7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/ E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/ r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*( 5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]* ((3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 6.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Cos[2*theta] - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)* r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3) + 6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/ E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)* Cos[2*theta]))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2) + 1.*^-6* (9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/ E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/ E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)* r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7* (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)* r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))* (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/ E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/ E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/ E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/ r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)* r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)* r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/ r^2)*Sin[2*theta]^2))))/ (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/ E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2* r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/ E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^ 2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^3 + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)* (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/ E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*r^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2* Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2