(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]* (1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^ (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))* ((-1.*^-12*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Sin[theta]^2))^2)/ (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)^2 - (1.*^-6*(-5.*^-7*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-1 + 3*Cos[2*theta]) + (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 + (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* ((3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + 3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)^2))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^ (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))* ((5.*^-7*(7.5*^-7*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) + 3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-3 + Csc[theta]^2)*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) - (7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^2))*((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (48*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2))))/(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))^2 - (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 - 3*Sin[theta]^2)))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^ 4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + (-1/2*(-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]* ((1.5*^-6*Cos[theta]*Sin[theta]* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4))* (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/ (r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]* (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 - 3.*^-6*r* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/ ((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]* (-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2* Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/ 2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])* (-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]* (((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 2.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)))/r)*Sin[theta]^2)/2 + r*(3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/ r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./ E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 + 1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 3.*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^ (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2)*((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 1.*^-6* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3.*^-6*r* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)))/ (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 3* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]* Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2)^2) - (5.*^-7*r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))* (6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2) + 2*(-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 3*r*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/2 + (3*r*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.* ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/ r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^ 2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/ E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 0.000027*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 0.000027*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*( 0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)* (3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/ (2*r^2*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2)))/ (Sqrt[2]*r) + (-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]* ((3.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2 + (3.*^-12*r*Cos[theta]*Sin[theta]* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4))* ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]* (-1/2*((((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - (3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.* ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25* r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + 1.*^-6*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2)* ((-1.*^-12*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))^2)/ (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2 + (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/ ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (1.*^-6*(((9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2* (1 + 3*Cos[2*theta]) + 3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)* (2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6* Sin[theta]^2*(3.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)^2*Cos[theta]^ 2 + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/ E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)* Cos[theta]^2 + 7.5*^-7*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* (-2 + 3*Sin[theta]^2) + (((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.* ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25* r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^ 2)))/4))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))/2 - 2.5*^-7*(6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 2 + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)* ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]* (1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^ (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))* ((-5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 - 3*Sin[theta]^2)))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)) - (1.*^-6*(-((3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)* ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3* ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* ((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2)/4 + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)^2 + (5.*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^ 4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/ (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))))/Sqrt[2] + ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^ (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))* (-1/4*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)* r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^ 2))^2/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^2))^2) + (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 + 3*Cos[2*theta])* ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 - 3*Sin[theta]^2)))/ (-2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2) + (1.125*^-12*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)^2 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* (7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (87*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3* r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) + 4*Csc[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2* (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (9*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + (2.25*^-12*r^2*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)^2 + 9.000000000000001*^-12*r^2*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 9.*^-12*r^2* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2* (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-11* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2* (7.5*^-7*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) + 2* Csc[theta]^2 + 3.*^-6*r^2*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2* (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/ E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/ E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)* (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)* Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^ 2))^2) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]* (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))* Sin[2*theta])/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 2*Csc[theta]^2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^ 2)))/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r) - Csc[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - ((-3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]* ((-3.*^-12*Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2 + (3.*^-12*Cos[theta]*Sin[theta]* (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2))*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*(3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/ ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^ 4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]* (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/ ((-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4))* (-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)* r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^ 2)))/((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]* (-8.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[ 2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2* Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/ 2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])* (-8 + 3.6*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2)))/(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2 - (3.*^-6*Cos[theta]*Sin[theta]* (-((((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/ 4))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - r*(((-30*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 + (15*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*( 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4) + 1.*^-6*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*( 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.* ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/ r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^ 2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/ E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4))* (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) + 1.*^-6*r*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)/4))*((3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2) + r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2)* ((5.*^-7*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^ 4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)* (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (5.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))* (r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2* (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^ 4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]* (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4))*Sin[2*theta])/ (r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (1.5*^-6*(3.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[ 2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) - (-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) + 6.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]* Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2)))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)^2) - (2.5*^-7*(2*(9.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1.875/ (E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((-30*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 + (15*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2 + 7.5*^-7* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^2) + (((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.* ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/ r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^ 2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/ E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) + 1.*^-6*((-3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Cos[2*theta] + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)* (-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 2 - 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2))/(2*Sqrt[2]*r) - (r^2*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^ (4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^ (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*( 0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^ 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (-1/4*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/ (r^4*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^ 2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2) + (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(1 + 3*Cos[2*theta])* ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2* (3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/ (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*Sin[2*theta]^2) + (2.25*^-12*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^ (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* Cos[theta]^2*(-3.*^-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/ (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*Sin[2*theta]^2) + (2.25*^-12*Cos[theta]* (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]* (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]* (6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2))*Sin[2*theta])/ (r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (2.5*^-7*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*Sin[2*theta]^2)*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^ 2)))/(r^3*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (7.5*^-7*(-6.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[ 2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])) - 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]* (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) + 6.*^-6*(18*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)))*Sin[2*theta]^2* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2)))/(r^2*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)^2) - (-2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)* r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + r*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2) + (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-1.875/(E^(4.*r^2)* r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 3*r* (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + (9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4 + (3*r* (78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^ 3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. + 0.25*r)) - 8.* (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/ E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^ 2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/ E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^ 2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/ E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)* (-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 1.3499999999999999*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - r*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)* (3.*^-6*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)* (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/ (2*r^3*(-9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2* Sin[theta]^2 + (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (2 - 3*Sin[theta]^2)))^2)) - 3.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]* ((1.5*^-12*r*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^ (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)* Cos[theta]*Sin[theta]*(-9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*Sin[2*theta]^2) - (2.2500000000000003*^-12*r* ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^5)*Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]* (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25* (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.* (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)* Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]* (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2))*(r*(2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2)*(-1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/ E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/ E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*Sin[2*theta]^2))/ (r^2*(9.*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)* r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (1 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) + (7.5*^-7*(4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r^2) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-4 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(-2 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*(1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2 + (1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)* (2 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2) - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)*(4 - 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/ E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2) + 6.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4))* Sin[2*theta])/(r*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/ r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (1 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) + 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]* (((4.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3*(-1.875/(E^(4.*r^2)* r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (2 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) + 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 1.*^-6*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 1.5*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/ E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)* Sin[theta]^2) + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* ((-9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)* r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/ E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/ 4 + r*(3*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - (3*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./ E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))* (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./ E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25* r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/ E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))* (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))* (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5* (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./ E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.* r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/ E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/ E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/ E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3* r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/ E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/ E^(4.*r^2))))/r)*Sin[theta]^2)/4)))* (-4 + 1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.375/(E^(4.*r^2)* r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 1.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^ 2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*Sin[theta]^2))* ((3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/ E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))* (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/ E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/ E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/ E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r* (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/ E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/ r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/ 4 + 3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7* (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/ (2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* (1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])* Sin[theta]^2) - 4.5*^-12*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^ 2 + (3.*^-6*Sin[2*theta]*((3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 6.*^-6*(-0.75/(E^(4.*r^2)* r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[ 2*theta] + 6.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta] - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta]))* (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2) + 1.*^-6*(9.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 3.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[ 2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 2.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2* (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 9.*^-6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^ 2 + 9.*^-6*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/ E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.*^-6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*( 3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125* (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)* (1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/ E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^ 2))))/(r*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/ E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)* r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))* r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6* (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)* (-1 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/ E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/ r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125* ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)* (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)* (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125* (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12* (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)* (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/ E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/ E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/ E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/ E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/ E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2* Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2